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Foreword 


This autoinstructional text was originally designed to solve a difficult training 
problem at the Western Data Processing Center. The center serves academic re- 
search projects at the University of California, Los Angeles, and over seventy 
other institutions of higher learning in the thirteen Western states. Most users 
wishtouse the Fortran Programming System even though they come from many dif- 
ferent academic disciplines and their technical backgrounds vary markedly. The 
WDPC runs a FortranOpenShop. Training problems at WDPC are similar to those 
met in most such open shops but exist here in exaggerated form. It would, for ex- 
ample, be extremely impractical to send instructors on monthly tours of seventy 
institutions. It is undesirable to have one person deliver the same lecture month 
after month, both because it is not sufficiently challenging for the instructor and be- 
cause the audiences are so heterogeneous both in their interests and in their tech- 
nical backgrounds. 

Although the training problem at WDPC may be extreme, many of the relevant 
circumstances have counterparts at other academic and industrial installations. 
This text constitutes a-self-contained training system for introducing students of 
almost any background or professional interest to the details of Fortran coding and 
the art of computer programming. 

The system provides detailed information for students who have little or no fa- 
miliarity with algorithmic notation but also permits students with this familiarity 
to skim that information efficiently. The examples and exercises are based on 
commonplace experience and donot require knowledge of a specialized application. 
Furthermore, the system contains an indexed reference manual that is cross-refer- 
enced to the program for periodic, voluntary review. Upon completion of the pro- 
gram, students will have written their first Fortran program. This program can 
be keypunched and compiled and executed. A short period of advanced training on 
the special features of any particular system should produce Fortran programmers 
ready to write useful computer programs for that system. 

GEORGE W. BROWN | 

Director 

Western Data Processing Center 
University of California, Los Angeles 
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Preface 


Fortran is the name of a simple algebra-like language for programming com- 
puters. It is a contraction of ''FORmula TRANslator" and is potentially valuable 
for solving any problem that can be expressed as a series of numerical relations or 
algebraic formulas. 

Such problems are common in most professional and academic specialties. Peo- 
ple working in these specialties are rapidly coming to depend on computers to alle- 
viate the cost, the drudgery, and the often insurmountable hurdles of manual and 
mechanical calculations. The computer, however, has become not only a symbol 
of relief from tedium, but an indispensable tool for the day-to-day operation of 
large-scale data processing systems, for the conduct of research projects, and for 
the solutions of complex, practical problems. As this trend continues, it becomes 
essential for more and more people to acquaint themselves with computer program - 
ming. 

Fortran is a relatively "old" computing language. The first version of it, for the 
IBM 704, was distributed in 1957. Since then it has been expanded and enriched and 
is currently available for programming many manufacturers' computers. The For- | 
tran presented in this text is taken from IBM FORTRAN II. To avoid an unneces- 
sary source of potential confusion, however, some of the nonessential, optional 
flexibility has been omitted. What remains is fairly universal and basic. Once 
this basic information has been learned and applied, the additional features of a 
particular Fortran system can be learned with relative ease as the need arises. 

This book is an introduction, not only to Fortran, but also to the art of computer 
programming. It will be helpful to those who are planning to use the computer for 
the first time and to those who wish merely to acquaint themselves with the rudi- 
ments in Fortranprogramming. It should be useful to managers and administrators 
who need a basic acquaintance with the concepts and terminology of computer pro- 
gramming and to highschool and college students in mathematics, statistics, engi- 
neering, and business administration. 
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The teaching technique used is called autoinstructional. It is based on B. F. Skin- 
ner's reinforcement theory of learning—the theory of programmed learning and 
teaching machines. Traditional applications of this theory require students to res- 
pond overtly to every new unit of information by writing down a word, numbers, or 
phrase, the correctness of which is immediately verified in the text. Experiments, 
particularly by Arnold Roe at UCLA, indicate, however, that under some circum- 
stances, if the overt response and verification are omitted, the result is a program 
of instruction that is equally as effective and significantly more efficient. This mode 
of autoinstruction is usually called the no-response mode. It has been used exten- 
sively and, we believe, successfully in the present text. 

The book also differs from traditional autoinstructional texts in the layout of the 
pages. Each page was individually designed by Elizabeth Paine, on the assumption 
that its unique appearance will aid those who remember information visually. 

The no-response sections are supplemented by exercises and program-writing 
tasks. The exercises were added, not as instructional, but as a means of building 
confidence. The tasks are larger segments of behavior, and are analysed and cor- 
rected upon their completion, as part of the autoinstructional technique. 

The tasks, the exercises, and the examples were all chosen for the generality of 
their content. This was also done so that students without particular background 
knowledge would not be aversively affected. 

The program has never been experimental. It was designed as a practical re- 
placement for eight hours of traditional instruction. Early drafts underwent infor- 
mal trials, which resulted in extensive revisions and retrials. We hope the end 
product will add a modicum of efficiency to the job of learning Fortran. 

We thank the following institutions and people: the Western Management Science 
Institute, Graduate School of Business Administration, University of California, Los 
Angeles, for its support, under a grant from the Ford Foundation, of the prepara- 
tion and reproduction of the early drafts of the program; the director and staff of 
the Western Data Processing Center for their guidance and assistance: Mr. Arnold 

} Roe of the UCLA engineering department's Teaching Systems Project for consulta- 
tion; and the students who exposed themselves to the early drafts and provided feed- 
back so essential for effective revision. 

HARRY L. COLMAN 


CLARENCE SMALLWOOD 
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To the Reader 


This text is an autoinstructional program. It has been 
written and designed to provide an efficient, self-contained 
system for learning the basic concepts of Fortran program - 
ming. 

The subject matter is presented in short, concise incre- 
ments printed inside aframe. The type of frame denotes 
the kind of information inside it. 
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Essential Fact Explanation 
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Example, Exercise, 


The appearance of each frame and each page has been Directions 


planned to attract your attention and to enhance your re- 
tention of the information. 


prssssssss= 
beeeeeeness 


There are four 
program -writing tasks with 
diagnoses. Fortran Coding 
Sheets, which may be 
removed for convenience, 
have been provided at 
the back of the book. 


Each concept is taught ina 
sequence of frames. Following 
each concept or group of 


related concepts are 
exercises with answers on 
the pages indicated. 
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To the Reader 











You may use the Index to review. It 
indicates pages in the program and in 
the Reference Manual section. Beside 
Reference Manual entries are page num- 
bers for further review in the program. 













There are many specialized words in the vocabulary 
of programming. Most of these words are defined 

explicitly or by example. Others are defined 
implicitly by their use in contexts where their 
meanings should become clear. 


The program assumes that you have no 
special background in computer 
programming. Therefore, proceed 
rapidly in those parts which seem clear, 
and read more carefully in other 
parts. 























Learning time 
has varied from 
two to over ten hours. 
















Use this 
autoinstructional 
system in the 
way that suits 
you best. 






™ If the subject matter is easy to understand, 
concentrate on the Essential Facts, and skim over 
the Explanations and Examples. 


vy If, while working the Exercises, you are 
confident your answer is correct, omit verifying 
it. 

™ Review concepts at any time, using either 
the Index or the Table of Contents. 
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To the Reader 
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x4 Make notes on questions that are not 
answered in the program. If they are 
not answered in subsequent sections, 
seek help from a more advanced 
Fortran reference manual or from an 
experienced Fortran programmer. 













*& If you are already familiar with 
the concepts covered in Part One: 
Introduction, start with Part Two: 
Program Structure. 
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tA program for a computer 


di 


is like a set of instructions for 
a clerk who is running a desk 
«calculator. 
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We can tell the calculator clerk what 
We can, for instance, instruct the clerk 
to add all the numbers on List A, write 
that total on a piece of blue paper, and 
label it Total of List A. 


to do with some numbers without saying 


what the particular numbers are. 


Gee eeeeeseeeseeese eee ses esses s sees eee 


The clerk will know what to do without 
knowing the numbers on the list or the 
purpose for adding them. 
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‘In fact, the same instructions to the clerk 
! will work for any list of numbers that we 
choose to call "List A." 
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Computer Programs 
are like the set of 
instructions to the 


On one day List A may contain one set 
calculator clerk. 


of numbers, and on another day 
another set. 
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Notice that there are three fairly distinct 
operations involved: 


wee e cesses esses ses ee ses eee es seems sesssesesesasesssae® 


All three phases are involved in 


Input - e. g., List A most computer programs. The instructions 
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Calculation - e. g., Accumulating the total 
. that make up a computer program 


Output - e. g., Writing the total ona 


piece of blue paper cause the computer to read the input data, 


perform some calculations, and 


ee eee e esas eee seca eeeessassaseeeseseseesessasssssecesad 
ee eee meee eee cen ee cen ceneneesesssessssassecascnsenn --- print the results. 
Naturally, the analogy between the calculator 
clerk and the computer has limits. 

We can tell the clerk to add the numbers 
without saying how many there are, 
and without saying, ''Now add the next one, 
now the next one, etc." 

We must, however, instruct the computer 
first to add the first number, then to 
add the second number, then the third, etc. 
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It would be marvelous, 
indeed, if the raw data of 
a problem could simply be 

"fed to the computer," 
and the computer could 
somehow analyze the 
problem, arrive at the 
correct solution, and 
carry out that solution 
to produce the desired 
results. 
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‘There is no computer instruction such as | 
"Calculate the Mean." 


To cause a computer to calculate a mean, 
we must order it to perform a large 
‘number of distinct operations. 
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There is no computer instruction like 


pessssessasees= eT Ld | 


"Simulate an Oil Refinery." There is no computer that can do this. 


The computer program that would simulate an oil We cannot give the computer vague 
refinery would be comprised of many thousand 


instructions related in a very complex way. 


eeueeessees peewee eee eee eee enews ee eneenssessesssessssescad 


instructions about what we want 
it to do. 


be ew eee eme esses ecesssessesessesesesesssesss= 


pesscsesseserery 
seseneecuesess 


seescesesesees 
beaaeeeeesesess 
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SQUCUHAUOUOUAVRNOOUGEUAUOUDEUEGOLOUOUGOOUUEY 
A computer is wired 


to react to a specific,= 
limited set of 
machine instructions 
in a specific, 
prescribed way. 
UANOUGUUAUOUGUOUGUUOUOUGUURUGEURCAUROUCUIONOES 


Planning and designing 
computer programs 
can be a very compli- 
cated affair. But 
nearly all programs 
require planning. 


se eee se seescssesescsscessssscscancasesccunt = 

We cannot, for example, order the = 
computer to "compute the statistical 

significance" or to "simulate the 
average man," without adding certain 

pertinent details to the general 
instructions. 


SOUADRADOOGEOOOROGRODODOOOONS 
COUTEUUOEOONEOOEEE 
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, One: Introduction 


Our instructions to 
it must ultimately 
be a program of 
these machine in- 
structions. 


It is this fact that 
requires us to 
analyze and organ- 
ize our problems 
and solutions to an 
extent that other 
methods often do 
not demand. 
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1 
Whereas human beings have: 


intuitive capabilities, the 


high-speed digital computer 


| 


does not. 


se 


pessssssssssenng 


It is not possible to give a computer a 
vague or general instruction like 


"Add any hundred numbers." 


It is possible to give a computer foolish 
but precise (specific) instructions like 


"Add every other number in 


the first hundred storage 
locations in memory." 


Poessesesseceseneseeneny 
beeeeeeeeeeessesessesasd 


The first instruction, the one the computer is 
not capable of acting on, is analogous to giving 
a child a ten-dollar bill and telling (instruct- 
ing or programming) him to go to the super- 
market and buy "food."' 


Whereas the child may 
accurately deduce what we 


want from an 
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The second is analogous to foolishly adding to 
the original instructions, the more specific 
instruction to bring home from the market 
each second item of food of the first hundred 
articles he sees in the market. 


instruction 
as vague as the first one, 


the computer cannot 
because it does not have 
the capability of under- 
standing, comprehending, 
or interpreting, and 


Pee ttle | 


therefore cannot deduce. 


LE 
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It cannot do this 
even though it has had 
years of previous 
experience with perfect 

programs. 


The programmer must clearly specify, 


See eee eS SEES eS ESS SS See eee Sees 


via precise _ instructions, 
exactly what he wants 
the computer to do and the order in which 


it is to be done. 


u 
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NOTE 


i The objective of 
‘this section is to ac- 
iquaint you with Flow 
iDiagramming. 


fr 
1 
1 
1 
' 
H 
' SUULUOUOLULOUEOOOUGUUUGUUOOUOSUROUNOUOUSOEOERTEOUOGOORS: 


Most beginners 
design and plan 
a computer program 
by drawing a 
Flow Diagram 


PTT 
UUDONUOUUOUOOOUOUUUOUOIEETS 


The emphasis will be 
‘on the order of events 


: 
tin a program, not on for the = 
tthe events program. = 
' themselves. = = 
H We ; there fore ‘ SSUOUTEOUOLUAOCUOGUGGUNOEUDOUUCUUOUOHOOGUOGHUOUECEONEOOOTS 
t advise you not to be ahaa cage alae nae aia | 
1 too concerned with = A Flow Diagram is a graphic = 
ithe contents of the = representation of all the sequences and = 
fg adie RRs = alternate sequences of operations that A 
' : = are to be specified in a computer = 
H = program. = 
i] = = 

{| 1 = a 

H i SUN NUNUOUCUNQUUAUUSEUOACOOUOOUGOUONSOUUCUUUOUUOUOOUOOUOCOUOOOUOOUOUROUCOEOOUCOUONOOUOOCOCD EUOEEQUEOOUOUOOES 

pone ees seennn mens eeeneenensessaseey 
trae ee Soe i A Flow Diagram shows 


' 
' 
iJ 
"the temporal and causal relation- 
H ships between operations and H 
t decisions in a program. : 


The sequence of events is crucial. We 
must, for example, instruct the computer 


to input List A before we instruct it to 
add the first number on that list. 


When computing a mean, we must 
instruct the computer to accumulate 
the total before dividing by the 


E 


A 





number of numbers. 
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In showing alternate paths in the sequence, 
a Flow Diagram must specify 

the conditions under which each and every 
alternate path could be followed. 
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Because 
Flow Diagrams are 


not themselves 
composed 
of computer 
instructions, 
there are no 
stringent rules 
for making them. 
You may use 
any notation 
you 
please. 
Bd 
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On the other hand, because the Flow Diagram 

will be used to write a computer program, it 

does no harm to orient it to computer operations. 
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SUUUTEADEANETEAUUEOUUREOOOUEOUEEOOOUEGOQUUOEUEOOUEEOOUEOGUCEQOCUUOQUEOOOEOOOUOUOUGCOOOGOOOUOUOLOUOOOOOODEOODS: 


There are many conventional techniques for 


drawing Flow Diagrams. Their use 
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PTET 
Conventional 

Flow Diagrams 
are composed 

of geometrical 

shapes connected 


by arrows. 
SUUPEUUUUUQUCUUUUHOEAUOQUOOCUUEOOOUROGE 


is recommended for the simple reason that 


other people will be able to understand them 
without learning a new set of techniques 


every time they look ata Flow Diagram. 
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Rectangles are used to indicate 
operations, such as addition, 
subtraction, multiplication, 
division, and exponentiation. 


The shapes are 
called "boxes" 
even though 
they are not 
all rectangular. 


X=A+B 
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PUT 
UT 


7 


Koes Wiles ces cen ee ces Wile Wiles Claes Ween Ss Mee ee ee eee 


TUUNDUAUUENEUAOODEQEDEOUOGUEEDEOUEUEDEDOEDOOEETS 


PUTO ULL. LLL OL GOL oS Oe OL Lb ab 
Diamonds are used to specify 


branching decisions. The exit YES 
taken depends on the value of 
the expression inside the box. 


. - NO 
(negative) — <> (positive) 


0 (zero) 


SAUUVUCUUVOVENEUUAOUOUUUOQEOOUOCOUUOOUOUEOEOUOCOOVOOOOCONOCOCOOOOOOOOCOUOEOOUOUOUOUOU EOE EEE 
Rectangles with rounded ends are used 
to specify input and output operations. 
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SUOOUORANUNOUOSUGUNOQUUNEQUGUOUUUQUUEUOQOSNUCQUOU0ROOQGUUROUOUOGUUINOQQUQOROUCOOUGUU0RSEUO0 
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Explanation 


If the result of the subtraction of B from A 
is negative, the minus exit is taken. 
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If the result of the subtraction of B from A 
is positive, the plus exit is taken. 


If the result of the subtraction of Bfrom A 
is zero, the zero exit is taken. 
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starting and stopping points. 
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SQUUUUUCUOCNUOEHOCUMHECUOOOOUOUOUUOUUOREESEOUEEREDEOOUOOROOEOUEEOOUOUEOOED: 
Arrows indicate the sequence in 

which the operations in the 
boxes are to be performed. 


They specify what is called the 


"Flow of Execution" 


A 


This isa 

Flow Diagram 
of a very simple, 
straightforward 
program. It reads 
(inputs) four values, 
computes two new 
values, and prints 
out the two new ones. 


or the 


"Flow of Control" 
PATTI 
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The numbers in 
parentheses 
opposite the boxes 
correspond to the 
explanatory frames 
on the next page. 


CAPUOUOUOODOONONGOODGROTNOQOGOUOUOUURUGUUOUUEOREGUORUEOOUUGUQUUEROCUOUCEONOGOUOUCOUUCUOUUOUOUROUOUOROOEGEE 
Inside the boxes, any notation may be used: 


Algebra, English imperative sentences, 
Boolean symbology, Proofreader's marks, 
Swahili, Roman numerals, or cartoons. 


However, because Fortran operations 
are algebraically oriented, you should 
use algebra wherever possible. 
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This is the starting point. 
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Hi H 
A 3) Z is set equal to the result ! 
H of the division of H 
: AbyB i 
1 1 
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‘@ 
H Z% and Y are printed out. 1 
i] ! 
Lciacdcnaasdcusiniusdsdmesnenedisela 


READ THESE BOXES IN NUMERICAL ORDER 


‘@ Four numbers are read in 


sseesessend 


and designated 

A, B, C, and D 
s=asen seeseseessesesesssssesseseennd 
p dinibiean hance Lcwandeces asebewe —— 
H H 
H Y is set equal to the result of H 
tC divided by D, plus Z i 
REIN Rien Tee Ie 


program. 


posesseseeey 


Oo This is the end of the 


beeeeeeesend 


Flow Diagrams 











This is a Flow Diagram 
of a subroutine called 
PAPER. 
The purpose of PAPER 
is to keep a tally of how 
many ten-five-and one- 
dollar bills will be 
needed in making 
change equal to "R." 


(Assume the '"'R" is 
computed in some 
other subroutine. ) 


Coes Willan Wil: Wilcun WWilcanun Wilson Wilan "iluamee Wilccs Wilco ANC: WON WW ee Wr 
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or ark ‘ark eet leew) 


\ 
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READ THESE BOXES IN NUMERICAL ORDER 


PAPER 


If R, the value of change still to be 
tallied, is greater than $10. 00, 


1 
1 
' 
' 
i 
i add one to SAWBUK, and 
t Subtract 10, 00 from R. 

1] 


‘Oo As soon as R is less than $10.00, 
decide if R is greater than $5. 00. 


If it is, 


add one to FIN, and 
subtract 5. 00 from R. 


prscesssssss= 


This is the starting point of 


beseeeseseseseed 


PTT 


@ The Aguntars, SAWBUK, 
FIN, and BUCK 
must all be started at 
zero. 


sseeeseoeed 


If R is pieiter than $1.00, add one to BUCK, 
and subtract 1.00 from R. 


Repeat this decision and operation 
until R is less than $1.00. 


6 When R is less tian $1.00 return to the Main 
Program. 


(The next thing to happen in the Main Program 
will be to call another subroutine to compute 


the coins needed to make up R.) 


Flow Diagrams 


SEL ETT ETT 
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| prceseenanesnonnnnanansessnsasey 


' 
! This is a Flow Diagram of a 
Main Program that 
calls four subroutines. 
The purpose is to compute 
| i the number of bills and coins 
' needed to make up change. 


beeseeeeeeneeeeeeseeseseeeee eee 





Wed Aah Teed Mee) Leeed  Clecrd ered leew) Lend Mlcad hema} Izu) Wlesmmad  Leseeid a 


READ THESE BOXES IN NUMERICAL ORDER 


This is the starting point 


ssesesecend 


seseeeeseseeennee seseseseeees eeesee d 
=2onem Joenseanessaeadanssossssnesas P eloledelente ttle alate leet late alee eteteteteteeteetetetetete | 
‘Oo sae: galas ean ah tne de alt 1 ' I will be an index or counter for H 
he the foal nomberct times ! H see ag track of the number of times i 
' change shall be computed. { ' change has been computed. ' 
L ! t I will be incremented each time H 
a aa ea Be ree at ee 5 change has been computed. ' 
bes we a et a Sa eeeeeeeeeeee eseaeeeue Sega eeeas ow 
pees see eee eee eee scene ee sen nee eeeeseeseseseneesn ” 
1 
C eee aaa ve 
CALL INPUT INPUT i ' 
Fe: s iaid oaseaieae tae rca Pa pubSounne~% {@ att PAPER means that the PAPER : 
i : i subroutine shall operate at this point. H 
i 1 
i The RETURN statement in the INPUT subroutine t H PAPER will compute the number of bills H 
' will bring the flow to the exit arrow from this box. ! H needed to make up R. H 
i] | 1 1 
' | INPUT reads in a transaction and computes : H ? . i 
1 a value for R, the amount of change needed. ' The RETURN statement in PAPER And : 
H ' H return the flow to the exit arrow from H 
bona n see nennnnnnne ec enanasesennsesanassunsece weeanes cond H this box. H 
danunucinsukenaeecadianteskeanioeenewannmanonmadin assed 


15 S Flow Diagrams 
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lt ltelteeltetetetels | 


CALL COINS means that the COINS sub- 


routine will function at this point. This is a decision box. IfI is now equal 


to N, the program should terminate. This 
COINS will compute the amounts of nickels, is the "yes" exit from the decision box. 
pennies, dimes, etc., needed to make up R. 
If I does not yet equal N, the process must 
be repeated. Another cycle of change- 
making should begin. 


The RETURN statement in COINS will return 
the flow to the exit arrow from this box. 


1 
‘Oo CALL OUTPUT means that the OUTPUT 
subroutine shall operate at this point. 


pene eee eee eee eee ee cee eee eens seeeeees 

1 

i 3 Before the next cycle begins, I should be 
increased by one. 

OUTPUT will print out the numbers of each 

denomination of coin and bill needed to 

make up an amount of money equal to R. 


The first time through the cycle, I was one. 
The second time through, I was two. 


The RETURN statement in OUTPUT will The last time through it will equal N. 


return the flow to the exit arrow from this box. 


seeeseeeeseeeeeeeesssee 
beeeeeeeeeeeeeeeeeseseed 


possessssesssesseses= 
Pesssssseessessseses= 


SRE EE SS 


possesses esas esses sees sees se sess 


10) This is the end of the 


1 

1 

1 

1 

H 

Program. ' 
H 


| 
| 
| 
| 
| 
I 
I 
j 
J 
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The three basic parts of a computer 
are: 
@The Input-Output Units 
@The Memory Unit 
@The Central Processing Unit (CPU) 


Memory consists of 
several thousand "'storage 
locations" or 'memory loca- 
tions.'' The contents of a 
storage location are called 

a "word." 


























There are approximately 
32,000 storage locations in the IBM 709 and 
7090. 


A memory of this size is referred to as a 32K 


Each _ storage location has 
a numerical "address." 
When programs are being 

executed, they always refer 

to storage locations (and 
the words in them) by using 
this numerical address. 















memory. 
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PTE ULE ULLAL LLL LLG LDL Ob bb bb Lab Lt 


Each word is 36 binary digits—36 bits. 
Every pattern of 36 bits in 
a word represents a numerical 
value in the binary number system. 


















Words in memory 
may represent: 




















SEE 
PTTL Lo 


When 
words are transmitted from a memory 


Decimal numerical 
values converted 
to binary 


[UUDUAUNUNOOUUOODCUUOOOUSUNUUEOOUGUOUOUUGUOQOQOQUOUOOOONIOUOUGUGUOOQUUUGUREGUQCUGOURIUCOUEOUEDY: 


Zin fact, al TET 


=machine instruc- 
Etions for the 
Ecomputer are 
words, and may 
=be represented 
Epatterns of 36 


location, they are not erased in that 
Octal numerical 
values converted 
to binary 


memory location. A replica of the 
pattern of bits is transmitted. 


Binary numbers 


UT 


Binary-coded 
alphabetic 
e = information 
Machine 
instructions 


r 


=bits. 
STUCUUAUUUUEOUUOUONUUOUOUAEAOAEOOUOUAL 









However, when a bit 
pattern (a word) is stored in 

a location, it replaces 
and erases the word that was 

in that location before 
it. 


This 


TOCLUEUCUEELOGEDEROTECEREREREREROOECOUEEREEERE 


: 


TTT 





19 


PU 
transmitting of words, of 


course, is always done in 


response to machine 


CUUUCEEOOUUUUQGUUKUCUUUCUUNEOUAENOGEHOCGHOUUUUECOUENCUUEEOOUEUNOUIEOOULET 


= in the computer's memory. 


SUTECEULOOUGUEOUUUUEROEOEUOEOREROGUUOUOERUOHOGCEUOOOOROUOUUROCEOOOGUUOCROOOUTOROOOOOOOOEUET 


PUTT 


instructions in 


a program. 


UUMUEUHUUEROUEEOUUAUOEUOUOOUOEOUUEOUOOUGUUOUUOOUUOOUOOOUOUOUOURIINUDLS 


And this program of en 
called 


instructions is itself stored= 


ir 


Words are transmitted between 
the computer's memory 

and Central Processing Unit 
(CPU) in microseconds 


(millionths of a second). 
TREO LOL CLE LLLLLo 


TURUUEERERODUCRHEROGEODOCUEDEODOOEEDE: 


5 


A 


program 
of 


machine 
instructions 


1S 


Object 
Program 





i | 


Memory 


| 0 One: Introduction 





PTT 
A machine 

instruction is a pattern 
of binary digits in 


a computer word. : 
PULP ed 


A typical machine instruction causes the CPU to 


"clear" its accumulator ''and add" to it the contents 





TOE 


of the storage location specified in the instruction. 


peseseeeeeeseeny 
beeeeeeeseeeeee 


Machine 
instructions are 
transmitted in 
sequence to the 
Central 

Processing 
Unit (CPU). 


For example- 
the following binary machine instruction 


STEELE ETE 


000101000000000000000000000000010100 





would cause the CPU to set its accumulator 
at zero and then to add to it the contents 


Jo 


PUT 
The CPU is designed to 
react in a particular 
way to particular = 

instructions. = 
[UMA TUEUUUUEECCUUMCUCUEOOUCCUOQUEUOUUEROCU QUE CUUROUGUCUOUTEOEOOTEEOLGE: 


rs 






of storage location 010100. 


Pr | 
beeeeeeesesseeeeeeeeeee 
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SAUTE 
Fortunately, these days, 
it is no longer necessary to 
write programs in binary 
machine instructions. 
PTE 







A sequence of binary 
machine instructions, 
designed 
to perform some meaningful 
computations, is called an 


Object 







PTT 


Ee 
ir 









Program 





Most professional programmers, and 
all amateurs, write programs in one or more of 
the many symbolic languages that have been 

developed for the purpose. 


SUUETETULUROUUOUEREEEURUOAOUECEOUOUEOUERER OOO DOROUEROUTEUEEOOUUOOUOEEEEOOOOUGEOOOOOREREOEOON OO EEEEEEOOOE TEES Pr oO g ram 

= S Languages: 
= Associated with each Source Language = 1. One-to-one 
= . = Languages 

4 Program is an elaborate system of computer = +.” One<to- 

= programs that can translate Source Program Se many 

= into —_—— Languages 

z = 


Programs written in these languages are 
called: 


Source Language Programs 
In general, 


there are two 
levels of Source 


Object Programs. 


od 


POUL LULL 


Object Programs and Source Programs 


wy 
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f SUUTDUETEUOUUUUUCAUEUEUREUGOUOUOEEOEOOSEOUGSUCUOOCEROUGUUOGUUCUUEOUOEOUOCUDDEUUUOEUGETEOOUDOUOOUUOOOEEROOOECUED, 


In a one-to-one Source Language, there is a 
translation from one symbol in the Source 


Language to one machine instruction. 
SUPEUUDDDNODUOUROUODUODODDOUROUGROODOUEOOIOOED 


The translation from symbols to machine instruc- 
tions is called "assembly." The 
translator is called the "assembler." 


; 


In a one-to-many 
Source 
Language 


DUCUULUROOUOOGEOOEQUUCUUEOUUQUUUEEUEOUOGOUE ETS 


i 


SUUUVUUNLUUUROGUOMOGUNNOUUCGGEECOUOGUOUQGUUSUOUGUOUGUUUGUUOUOUOUUOUOUCOUUROUOUOUCOUOGOEGUEOUUUUOOUOROUOCEUEEEEIES 


there may be many 


machine 
instructions 


The translation is called 


for each statement 


in the "compilation, " 
Source and the translator program is called the 
Language. "Compiler. " 





PUTT 
CUOUORODULDOTELULUOUGUGULUOUUOTEROCUEUGUGOUGUCUDGEDOUOUEODGUCURUDGOUERCUDOUGUUQUUUROUOUOUUGCRUOORONGROONOUOES 





4 | - is w) = » ‘ea J, Lea line a | 4 1 — i 4, Li L_ J Ley Lesh 














LUPUADOAOUUDNUOUROGUOUGRDOODOONOGUNOGUOGUROONOODODUOODOOOUGORODDOOOOODOND =: 


Ls 















Fortran is a one-to-many 
Source Program Language. 
Statements in Fortran are 
compiled into Object Program 
machine instructions. 


The computational statements in Fortran 
resemble ordinary algebra. 


Control and input-output statements resemble 
ordinary English language 


imperative sentences. 


PUT 
CUUECEELERCCECC ETAT CETEEA TERETE CECE 


Storage statements resemble declarative 


7] 





sentences. 
Programs 
written in 
Fortran are 
called 
Fortran 
Source 
Programs 

























4 


TT 
The 


= transformation of a 
Fortran Source 


TOUTTOUUDE LUTE EEE 


called Compilation. 


s ae as s 
Fortran Source Program Compilation 





PT 
23 
a8 
oE 
tae 
cms 
o ° 
BE 
B 


5 
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AUCTTUUVEDUANOAUUOUUCUCUVEUUOSEOUEOUONOAUOODOOUOOUDYOUOUCUOEOUENEEOTEEES 
Compilation is done = 
in the computer by a program 
called the 
Fortran Compiler 
PTET 








The Fortran Compiler Program analyzes 


TUEETUE EEE LS 


I 


each statement in the Fortran Source 
Program, and generates a sequence of machine 


PUTT LLL 


Ty 


instructions which, when executed, will perform 
precisely those computations, etc. , specified 


inthe Source Program. 


SUP TTEELETEEE ETE ETE ETE EEE EEE EE ERED EEE EEGEE OE EEE ECE TEODEEEODEEEOOEEEEO DUO EUEOCUCSO RTO DED DOO DOOTODTO RE OUUOUD 


tS 


Having successfully generated an Object Program, 
the compiler does two things with it: 


[As the compiler analyzes 
each statement, it uncovers 

certain kinds of errors. 

These are referred to as 


1. A copy of the Object Program is temporarily 
stored on a special tape for subsequent 
execution. 
2. Another copy is punched into tabulating cards for 
storage, and for execution at later dates. 


Diagnostic 


Errors 


TUTTE UACCCLAGECGUECCCCUOECEUUCEEEEREEEEEE 





PUTO CLOL LLL L LLL 


The compiler can diagnose the following kinds 
of errors ina Source Program: 


%¥ Illegal characters 
*¥ Illegal combinations of characters 


% Improper flow of control through the 


program. 


TUTE EA ERED CUTE ETE EEE 


QUUTUVENOURAOUONUOGEVOUOUONOUOUOEONORAOOUOAOOQOUOOOUOUOUOUOOOOUOUIUO 22 The Fortran compiler cannot diagnose 
logical errors. It cannot deduce your 


A Source Program containing 
an error that the compiler can 
diagnose will not be compiled 

into an Object Program. 
TUTTLE ULE EEUU 


intentions. It cannot compensate for even 
the mostobvious mistakes in specifying 


PUT ES 


POUL LLL 


computations, etc. 
PTTTEU UCL LOLULULL LLCO. LO LLL LLL 


In the case of diagnosable errors, 
the compiler prints out the erroneous 


statement, and attempts to catalogue 
the kind of error. 


POTTED 


FAUMUUOUUUUNUNUOUUONOEOOUEUOEOUQUUUEQGOOCQCOUUUQGGUU0NOOUUOUCUOOOUGUUEOOQGUEEOUEOUGUOOREOEOOE 
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For example, if your program were computing 
areas of circles, and 


you wrote 3.7416 
instead of 3.1416 






the compiler could not diagnose the error. 


SSeS Be Se SSS eee eee Se eeeeseeeeeeeesenom es 


Ce lel lett tttlteletet tL | 


Programs containing errors that the compiler 
cannot diagnose will be successfully 


compiled. The Object Program so compiled, 
however, will certainly not produce the 


results intended by the author of the Source 
Program. 


besemeeeseeseseseses See eee eee eee eee eee 
SQUIUOUUEOUUGUOUNUOUEUBOUEUOOUROOURUOOUGUOUEAOOGUUROUCHOQUCROREOOGUOUOUOCUQOUOEOOOUOOUETOOOELS 


Therefore, it is essential that you be 
precise in writing a program, by 


paying close attention to even the 





smallest detail. 
TITTIES 


SOUETADDEEDDGDOUHEDODEURDOOOROODOOED 
STUN UAUUAUAEOQQUUOUOREROOOOUOOONEOUE 


Ce ee Es EE es OE ees I es (mes 





SAUUUDUDUQDOUENEDAUA DOU EOGUDERTOTEUOED 
A sequence of 
Fortran 
Statements 
comprises a 
Fortran Source 
Program. 







Executable statements 
result in machine instructions. 





CT bg 
PUT 


PTTL ECLELECLLOE LLL LLULUCLLOLLELLLCLL ELL LECOL EOL LLEE LOL LLL Lod 


PUTT 


SE 





Ly 


Nonexecutable statements tell the 
compiler what kind of storage require- 


ments will be needed and how input 


There are two kinds of Source and output data are laid out. 


Program statements: 


DOUCET CETTE EES 


SUT TETE ET 


1 


exe Executable TOUDEUAEUGHGQURELEUOUCTUREROTOGUEO ROR GUGUOCGEORGUOUOUOOUGUOEGUGUOROUOCGUOUOREHOUGROUODOGEOENE 


MNonexecutable 


21 Kinds of Fortran Statements 


’ . a a ee Ee 





ee eee————e——EE—————E————e 
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SQUUUTEUUUOTEDUCOEEEUUOUAEEEUUOOUEOOECECEOOUOEEEOROUEEDOOUOOEEEOEEOUE 
=Nonexecutable statements affect 
Ethe design of the Object Program: 
=Executable statements affect 


=the content. 
SAUUEUUUOTEROQUDOQEUGUUOQUGHOUOUUCOUUOUOUENECUOGUORQOUHUQTUREOOOOUOOD 


There 
are 

four 

kinds 








TUDE CETTE EEE ELETS 






= 


re 


of 
nonexecutable 








statements: 


Storage statements 










There are four kinds of 
executable statements: 
* Arithmetic statements 
*4Control statements 
Input statements 
Output statements 















@ 
Format statements 











@ 
Subroutine-defining 


statements 
e 
Comment 
statements 







heehee alee an ae elena eaten lll elle lela tateleleletatelele | 





The rules for writing these 
different kinds of statements will be 


discussed in the next section. 


poessssssssssessq 


OO B.A lll ee a 


a ne or Lacy ee ee ee a = 





























Statements in a Fortran Source 
Program are first written on 
coding sheets. 


A typical short Main Program with 
a typical short subroutine looks 
something like the following: 
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i 


{ 


beeeeeeeeeseeeeeees eee 
prt ssssssssss=4 





fen yyy ly 


4 Note: Do not ponder the meanings 
of the Fortran statements in the 
samples. 


They are not important at this 
point, and will become clear as 
you progress through the program. 


Fortran Coding Sheets 
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d 
FORTRAN CODING FORM 
Program __MAIN PROGRAM o 


















































































Coded By JIM_BR@WN Date TODAY > 
Checked By SAM HAND Identification Page 1 of Sie 
(ereseel eveeareerenre 

Cc FOR COMMENT 73 sad 
lagers FORTRAN STATEMENT 
10 15 20 25 30 35 40 45 50 5 60 65 70 72 
1 1 panes | si re 1 1 of L ani Sean) Een KEP e tren Een | 
1 bo i, 1 L fees L 1 oe Yate hehe [aoereneeey 
1 as 1 fou ex! ae pay een ! Sore 
THIS IS | A “MAIN | PROGRAM 
J J... L rent E a. 1 eee is AL -: 
IT “READS. “VALUES 5 FOR N AND FOR X(T), [= 1, N tn Anes ; 7 Py, , 
paaeree fe 
DIMENSION X X(999) 
[ [COMMON x, X,_N, AVERAGE ae Pabree aes: | a 
| TFORMAT ( (3) 
fe ress rare) ae Jas ft 
READ 21, N . 
pitas Eeeietene ace Pg a [eyes GAN PTE Neer ok Cm 
22 FORMAT (7F10.4) 
READ 22, (X(), [=1, N) 
Pow pd ga ett 
CALL MEAN 
CALL EXIT 
rare | Cree Lerner aes Grranet dal, 1 = el 
END 
a Oe iil i a __ i oe Sees o 
Pp} pd reece | i, aa i ! ore 
po fd eres Perea | | teen eae 1 1 1 ae 
fp i Pasa L 1 oma Zi . ts 





























jr ‘iia’ dm 
program __SUBR@UTINE MEAN 


Coded By _JIM BROWN 


lected laste er ag 


heal 


\yaid* lead” \etiad = \emd lanai 


FORTRAN CODING FORM 





Date IODAY _ 
Page 2 _of 2 





Identification 
Va i tf 













































































(ee FOR COMMENT 7s 80 
SNUMBER |S FORTRAN STATEMENT 
1 5|6|7 10 15 20 25 30 35 40 45 50 55 60 65 70 72 
_s|6|7 | 
: eer {_. 1 jt 1 | 1 jo 1 aT vo i 1 1 L 1 L 1 
raerereN 1 Poe | a as i L 1 =, \_ 1 aE 1 i) L _ 1 
roe 5 aero Ja 1 it L 1 1 i 1 a 1 roe | 
SUBROUTINE | MEAN 
ehh Paes ees | pio | peewee om Laer ar es Pen | roam fo | ee ae L L 
[_ | [DIMENSION » N_X(999) 
Par eres eee a Se | rae Be ee ee 1 rae ra is pam | rat 1 renee ere piereas 4 Ie: eras | 
COMMON x ‘N,_ “AVEAGE 
Paar ee Peer ee Wes Rael a Pf ga NE og oh hi ia Pee | 41 1. L 1 — 
SUMX = =0.0 
reread | Pe Mer n ] a een rere ae Leary a | ee Oa a a peer es ee Fe 1 ro © ae 4 oe 
FLN = N_ 
ao Fees Saaiweer @an Way ues ieee ae ae es oe ae Sere a. 1 foaoe oe ae ee | rere i ae | 1 M 
[_ [Do 10 10 [= 1, N 
oes | taro st 4 vee Eerevat ees i Aas Oee nee | ESS ser eet oe es |. renee | 1 1 erie 
i | |SUMX = X= SUMX+X) 1 1 pe ee a rest ere ae) bee vane Pa ae a1 
< 10 | [CONTINUE 
4. Fave! Gece aera Sere Paves Boece | = | res 1 en rea f Js. L 
"| [AVEAGE = ‘SUMX/FLN 
ea one ahi Do a a — 4 raat af 
[ Peo oo | [RETURN | calla siicnctedlihingahcenel wee ker ee Oe | ean) (er ene ee eee Cae re a we; are 1 ——s | Fa Seer aes | 
| | JEND Fg Ng i a a og fee x a No dl | renee ee tenes enrems eae boner ae 
re aes pores ee _L yon are para | ne rem Pal er 4. cS es 4 pei | 1 Le, araes Y 
1 a ‘aan 1 1 paren | 1 ee | fe 1 1 1 1 ft: 1 1 
| os ee 1 rea | | os 1 1 1 as A. Peeves | J 1 a L at | 
1 peats teen 1 rae 8 i rob rn L =I mt L 1 f. nm 1 





























SAUVUAUNUAUOONNUANNUNEOOOONUONUOOOOUOUUEUUUCUOROODEORUODOGOUUORGUIEE 
The information on each line of 













the coding sheet is punched ona 


separate tab 
PULL 








SPOUEURTUAUEOEEOUUET PUTT | 
There are 
80 
columns in a tabulating 
d. 


BU 


One: Introduction 





ee ke a ee ee ee a 


4 


referred to in other statements. ) 


: Columns = SLUCTOUCCEOOCEAUEEAOCETEAETUNCTORCCTOUEEURECEEEE CCC EUCEEUEUETEEETUEEEOOOCEOOECEO EUR OE TTD O EELS 
= 7- 72 are = = Columns 1 - 5 are used for the statement = 
= used for the body of = E = 
= the = 4 = number. 5 
A Fortran = 4 (It is necessary to number some 3 
2 Statement. & = statements so that they may be = 


TT sg 
PUTT IEP 
Column 73 - 80 are used 

only for 
SSUUTUUETUETOUOUOUOU UCU EETEOQEOOEOOEROOUOUECOEROHOUGUOUROCOOUEROUGEUOOUOOUDOROUTOODODDOOOUE2S 
To avoid confusion, the following printing 
conventions are recommended on Fortran 
Coding Sheets: 


sequencing and identification. 
SCUUDDEEDUMCLEMCUCUACOUUEUEUOUOUEMOGUGCGURECORER CHER DU CUCCOUOUICOONED 


TT 


Us 


1 - One I - Eye 
Column 6 is normally left blank. 2 - Two Z - Zee 
However, if a Fortran statement requires more 0- Zero @ - Ch 


PUTT 
ETUC LE 


than one line (one card) it may be continued on ETUC UCU CECLCCLCOL EOL LLOE LL LLCLLELLOLLOLLOLLOLL LOL LULL LLL 
’ 


another one. In this case, the continuation card 
must have some character punched in column 6. 


This character may be any character other 
than a blank. 
SOUUEVUEDLUUGUUGUGUOUQGO0CUUCECUCCOUCUCECURECHEONSUUUECCUGECUOROGUCGUUAUUUGOEOUOUUOOUUUGUOGUUQQUQUUOUU0UOUU0RS 





TT 


35 Punched Cards 








SUEDTLLUUUUUUMUOUUUOUUUUUEEUEOCOUOOOUEEOUOOUOOOOOOCOOOOOSOOU OTE TTERUOEOOEL: 
=The contents of Fortran statements= 


wa 
8 
o 
uo} 
c 
=] 
° 
> 
oO 
Qa 
[o} 
5 
5 
jon 
< 
Ee, 
= 
a 
5 
ga 
° 
ro) 
8 
fo 
Dn 
oa 
|S 


using a keypunch machine. This 
machine has a keyboard like a 


typewriter. Hitting a key causes a 
=pattern of holes to be punched ina 


card and the character to be 


printed. 
Sc iouuveeneuasneveenvuevennnsuocuonnnacccaconnansceseegnanccceeansuuennnsie 


es 


code for one character. 


printed on top at the head of the column. 
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The printed character is 
never read by the machine; 
it is only for human 
convenience. 
TOUUUUEUEUEEDERGU COUR OU GGUECUECOEEOGQUUUROGCUOEOEGOR DUDE CCEREOEIEONED ES 


UTE ELL 


What is a Punched Card? 


A punched card or tabulating card is a card 
of uniform size and shape that has holes punched 
in it according to an established code-pattern. 


Punched cards have the important advantage 


of being relatively permanent, and they can be read 
quickly and accurately by several different kinds 
They are often called Hollerith Cards. 





iB 


TT 
Fortran programs 
and data are 
CORTUTUETUUDUEEEOCROCUECE CUE GUEDHCEOGHGEREEEEERDOUECEOGUGEODEO OEE ROCR OUR DEO OEE DOOR ODE CEE DOU RER OOO TEOO EOE CEES punched into cards 
Each column is capable of containing the punched 


The code-pattern for the character is punched code-pattern: 


in the column, and the character itself is usually 


Sn ee ear t ne ere 


Each card consists 


Printing the character at the top of the column vertical columns. 


alleviates the necessity of memorizing the 
Pee of 12 


BUTTE 


de 
= possible ee 


“a ro, re er comet re re _, 


Following are Sample 
Cards with the 


Numeric, 
Alphabetic, and 
Special Characters 


punched in. 


oni tert 


beenneeececne 











UODUDDUNUDOONDOUROGOUONOUGOUUOOUNUOUOUOUROUNOOODOEONOORIGE 
There are several alternative 
sets of special characters 
that may be used at different 
computer installations. 


PUTT 








— ce-ch" e411 to” ro re, 
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! Programs to be i 
' compiled are H 
H called t 
t programs. H 
bee eee eee eee ee sesseseeeened 

ANSWER” ON” P. 163 


© 


Source Programs { 
must be compiled H 
into H 
programs before { 
they can be H 
executed. : 


ANSWER ON P. 16 
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Pa Ps a er era ere ae 


The process of 
producing a 
Fortran Object 
Program from a 
Source Program 
is called 


Obeneeneeeeeeeneel 


> 
= 
21 
m 
po) 
.e} 
~ 
fon) 


1 
' 
1 
H Executable ' 
: statements are 1 
. compiled into 1 
H machine ' 
: t 
ry 1 
bennennenseecanenccns sanet 
SWER ON P. 171 
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Exercises 


ai 





One: Introduction 


1 
| This program i 
i — will not : 
' terminate until 4 
' control reaches 1 
i box H 
1 ' 
1 ' 
1 1 

7 


eee eee eee 





ees ON eee I cee UE cee WO cones eee ces WO ee | 


Te ee en ee” a Pe Pe ce” a Pee vn ee Wa Pe er a ee ee ae en 


When will this program terminate? 
1) Never 
2) At box (e) 
3) At box (d) 


sues 


Pbeneweeeeeeeea= 


Fr 





Exercises 
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necgneneneneseronnerenenn eek On P. 1) 


How often will control reach box (c)? 
a) Never 
H b) Once H 
Hl c) One-hundred times 


How many times will the contents 
of box (c) be executed? 


a) Once 
b) Never 


c) "M" times 


NSWER ON P. 1 


Wbasssesensenesed 


Two: Program Structure 





43 


Part Two: PROGRAM STRUCTURE 






A'"Job" consists of: 









1. The Program Section 
2. The Data Section 
3. The System Control Cards 






A Job @ Subroutines ® Main Programe 
Interprogram Flow of Control @ Exercises @ 
Main Program Task © Diagnosis® 
Comment Statements 












System Control Cards identify the Job, and 
regulate the preprocessing of the programs 


in it. The control cards required at computing 
installations are different from installation 


to installation. 









SQUDUUOUECOUEVEUUUOUOUETOUEUDOPE GUE RUOUOCCOEEOTEECCEUESOC UOC EU EUEEROE TERETE EE EEE 
Z The Program Section contains = 
all the related program segments 

that have been written to accomplish 


a particular task. 


COUUEUCUU TEU CECUECTECUUOUOU COU EEUTOEOCE CETTE CODE DEPCCEE EO OCRCUEOCEOUTE CCE ETO EEO ETE EES 








UT 
arge, well-organized 
jobs consist of one Main 
Program and several 
subroutines. 
EAT) CUCU EEUOT ECT EL ORT ED ET EEEE 





TTT 








Two: Program Structure 





SUUUAVUNTATAUUODEVONTEMEEUOUOUOUGECUCUEEEUOECUEEOEEUO EEE EEE ETT 
= The data are in one section and 
that section is 

usually marked by a 


particular System Control Card.= 
EEE 








TUTE 
















There must be one and 
only one Main Program in 
the program section. But 


there may be many 






subroutines—or none. 









A subroutine is a self-contained 
program that is compiled 
independently of other sub- 
routines or the Main Program. 











t 


TTT 
A set of Fortran 
tatements is defined as 
subroutine by the first 
statement inthe set. 
PTTL ELLE oy 


The general form of a subroutine-defining 
statement is 


BTL oes 


TOLL 
on 






SUBRQUTINE Name 





where ''Name" may be any combination of from 
one to six alphabetic characters. 





The last statement 
in a subroutine 


must be an "END" 
statement. 
END 







For example, 


SUBRGQUTINE DGIT PT 


defines a set of statements =The end of a 


* TTT Ub 
as a subroutine whose 


Iz 


subroutine is 


sam eeeseeeeseesenny 


beeeeeeeseeseeeeses 


subroutine. 


RO od 


COTTE ECT CET 


name is = = 
‘i fr Ealso marked = 
DGIT". 5 with A = The compiler will compile all the 
Lessee eee = = statements between the 
= special = SUBROUTINE statement and the 
= = END statement as a single 
= statement. = 
a = 


Subroutines 


Two: Program Structure 


The END statement says, 
"This is the last 


card in this program." 








The termination 
of a 






















The RETURN statement will 
cause the flow of control (execu- 
tion) to return to wherever it 
was before control was trans - 
ferred to the subroutine. 


subroutine 






must be the 









following 
statement: 





RETURN 


A RETURN statement! 
is the last logical 
statement. 
The END statement 
is the last physical 
statement. 


OUUUNDODOGOOOOUCOOUORUNSONONGUUUUOOUORUCUNODEOUOGEUROOUCUSNNUGHOOOUCUUNUNUQOUUOGOOUQUUGUDUOOOGUDQUIOUONOONRS: 
Thus, there are three crucial statements in & 
every subroutine: 


SUBROUTINE Name 


| 


other statements 





RETURN 


Pa 
= 
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z 
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Subroutines may be "'called" from any 
point ina Main Program. The calling 
statement is 






CALL Name 







where "Name" is the name of the 
subroutine to which control is to be 
transferred. 


A program is defined as a Main Program 
by the single fact that the 
first statement in it 
is not a subroutine-defining statement. 


PUTO LL ba 
Thus, a program that is a Main 
Program may begin with any 

statement except a subroutine- 


defining statement. 
TUPELO EEUU 


4 


" 





The last state- 
ment in a Main 








Program must 
be an END 
statement: 


END 


Lis 
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statement in the Main Program 
that calls a special System Subroutine which 


returns control to the Monitor System. 


hs 


UTTTTEE ELE 





7 



















Although there are several 
Program-terminating System Subroutines, the 
one to use here is 


CALL EXIT 


subroutine EXIT terminates the job, 
and returns 
control to the Monitor System. 


Subroutines may also be ——— 


called from other 


subroutines. 





Control could flow, for example, from a 
Main Program to a subroutine, and from 
there to a second subroutine. 


The RETURN statement in the second 
subroutine returns control to the first. 


pesessssssesenny 


sesessesseseusd 


ee aed 


2 Oe Se 





Two: Program Structure 











It is from the 
Main Program that 


subroutines 
are normally 


called. 


Control 
flows from the 
Main Program 


to a subroutine, 
and then back 


to the 


Main Program. 


PUT 


a 


. Di 


Interprogram Flow of Control 
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This box causes 
control to transfer 
out to 


subroutine 


beeeeeeeeeeeseeeseed 


ABLE 

hese es 

Pescenensaetacnnn Jecvenuaneeuwa 7 
H Control reaches H 
H subroutine ABLE i 
i and proceeds through! 
: it until it reaches H 
H the RETURN H 
' 1 
H box. H 
t ' 
' ' 
beseeseeeeseusseeees eeeeseseeeeensd 

prasdndacensneseseneeen senenecens 

i The RETURN box ! 

! & 

' 

returns control to the exit i 

H arrow of the H 

' "CALL ABLE"! 

1 ' 

t box, box (1). H 

TGR eae coeaigelll 


[i OE es A es OE cs I cs Os es 





Two: Program Structure 


Control proceeds to box (4). 
Here control is transferred 
out to subroutine BAKER, 


ebeteceecdudsecdwacetedunacens = 
When control 1 

reaches subroutine 1 
BAKER, : 

it proceeds through H 

that program i 
until the ‘ 
RETURN i 

1 

a 


The RETURN box 
returns control to the 
CALL BAKER box. 


posssssseesy 


= FS FSS eS ope 


r= 


ati) «game emt Npetigh ent ond ee 





pice nee e eee eee e eee esses ences sesaccenasceeet 


"STGP" indicates the termination 
of the job. 


possesses eee ee scene sseeseseeeee =| 
1@ CALL CHARLY causes} 
control to be 
transferred out to 
subroutine CHARLY. 


possscsessessss 
beeen eeeeeeees® 


pocsssss 
beseeeees 








H 1 
' 
' Subroutine 1 pasdenedenrewesnenrasane rs Penn ett tlelataas | 
H CHARLY { ‘@ On the next page is a Fortran Source t 
H operates. H H Program corresponding to the i 
i H i Flow Diagram you have just studied. t 
' 
i ' H Compare box (1) with statement (1). t 
—- Sees 5 Compare box (2) with statement (2), H 
+ i etc., etc. i 
ee oe H Note the flow of control through 1 
' The RETURN box H H the Source Programs. 1 
H sends control back to ! 4 mcauencennancnsnesusnsnan epinnnansanenesnunssessnasend 
H the Main Program. 1 
1 1 
1 1 
J 
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Two: Program Structure 


0 nccetceaeesseeeeence (an eescnececneeeenneesnenesnneeennesenensanennnnencnaasense 


a 


1 
4 1 1 i] 
1 The correct statement in a i H Which of the following statements causes i 
‘Main Program to call a H i control to be returned to the Monitor H 
H subroutine named BAKER is ! ' System, thus terminating the program? i 
aah ine Ben : CALL EXIT END RETURN SUBRGUTINE 
1 1 1 5 
CALL BAKER bee eee cence eee een n cee eeeeen nn nnnenenenenmmennnceaeen annem 525 
1 1 
al 


ANSWER ON P. 16 
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Beginning on about the fifth line of 


a Fortran coding sheet, write a complete, 
but short, Main Program that calls each 


of the following subroutines in turn: 
INPUT, SORT, GUTPUT, and EXIT. 


Oi | 
beeeeeeeeseeee eee 


SPECIAL INSTRUCTIONS: 4% ¥ ¥ 


Do not continue until you have completed this task. 


® 





re ee ee ee ee ee 


! 
Was the first statement t 
in your program 


CALL INPUT 


Specs ses sess seseseeseeses 
i] 
' 








sees eens See 


r Was the next statement 





eee eee 


INPUT is the name of the subroutine 
that will read in the data to be used in 
the SORT subroutine. 


These data must be read in before 
this subroutine can be expected to 
use it. 


Se SSS eRe SR seeeseseseeend 


' 
H in your program 

H CALL SGRT 

' and was the "O" slashed? 
1! 


posssssseesesesy 





ie ee ee eee 






pacaee ae anmeehandacacnecateecd 
cwaceeceeneecen Rae eae shen ates Se : Was the third statement in 1 
Subroutine SORT is the subroutine 4 Sctosciacaseausoe oe eerey QUTPUT i 
that will be doing the main work in ! ‘ ane 9 H 
bivaaiiles }—_________»i and was the "O" slashed? 
job. 1 i 


It must be called after INPUT, but 
before GUTPUT. 


eee eee eee eee ee eee ese eee 


seeeeeseeeeseng 





Diagnosis 
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Part Three: VARIABLES AND CONSTANTS 





Fortran Variables @ Exercises @ Fortran Con- 
stants @ Exercises @ Subscripted Variables @ 
DIMENSION Statements @ Exercises @® Com- 
mon Storage @ Exercises 





SUVUAUUOUNAEUONCOUUOUUTONTEROUEOUOVOOUOCUOCUOEOOCUOESOR EOC UOCEOEOOOOUTOUROUOOOOTOE TOUTE 

Every numerical value that is input data 
must be "assigned" to a Fortran 
variable. 


The heart of every Fortran program 
is the arithmetic calculations that 
are performed. 


Each Fortran variable has a specific 
storage location in memory for its 


numerical value. 
caer" “iam nna 


These calculations are done with 
numbers. 


SST 


seeeseeeeseneny 
seseessseessesd 


PU UU 


rrr 


OUTED TEES 


Every numerical value that is 
read in by a program is stored 
in the memory location corre- 
sponding to the variable to which 
it is assigned. 





COUTEUATEETT ETE OUGU RODE DOR OLEEEOD OED EG OOD OR DE NED TEDET TELE 
umbers may be written in 


Source Programs as 





Fortran Constants or they 


may be input data 
CUULURDEDER EGCG GUEOEAR ROR EOEDER DOES EOOEED 





PUTTS 
PU 





STUNUUNUAURAUEUOUGLUOONCUUUQUOOUEOOUNOOOOSUOUNUEOOUUROUOUOOUOOUENOOOUOGE 


fee) Pe) ee) fe) fe, ee) fe ee) ee lf, oe) | 6) ee, 


bane 
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Thus, a Fortran variable is like a 














symbolic "tag" for a storage location. 







Before Fortran variables can be used in 

a calculation, they must be "defined." The value of the variable at any 
moment during execution is the 
value of the number in its storage 


location. 


A variable is said to be defined if it 
occurs in a Fortran statement that stores 
a number in the location named by the 
variable. 








This rule ensures that a variable will 
have a value before it is used. 






SSUCUCUUECACUTEVECUTU ATA TACHOURUEU ATE COECOAAURAOLEGE TATU TEOE OOM OEA TO AOUOLE MOVE HOO OOOO MEMEO HOHOMEE EDD: 

Whenever a variable is used in a program, 
it is the storage location that it 

names that will be affected. 





Variables may be defined 
The actual storage location named by a 

particular variable cannot be known until 
after the program is compiled. 


in Input Statements, 
in D@Q-loop Statements, 


and as the name of the location And while the program is being written, it is not 
necessary to know the actual storage location. 


a UOCUUCUUUAGUOCECAGCRTEUUECCCE EEOC AUEEAUAOEESOETUUOEAECEOOCEHCOUEEOAUOEECOHEOOOOSOOEAOOOUOESUOOUEEUOOOOUEED ie 


where. the result of an arithmetic 


PTTL 


calculation should be stored. 


UUTECUEODEGUUERUUEOOCOUGGCEOUGOENSUGHOEOREEESS 


UU 


al 


st 
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Fortran Variables 








Se ee ee 
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Toermromecr® | f""Gucanrma nae 
A, B, C, D, E, F, G, H, ---G, P, Q, H variables are all H 
R, 8, T, U, V, W, X, Y, Z, Floating Point Mode 

the variable is FLOATING POINT. x PQA FR DOG Y 
' 

: T@M TABLE TABGNE TABTWG 

GIZMG 

1 

1 PETER ZENITH RATE RCA ETC 

Leseeeeeee saeeeeeeeses eee ett 





For example, the following variables are 
Fixed Point Mode 
IJK LMN 
MAN KQUNT ITEMNG NUMBER 
JOBNG NANCY 
LUCK MANNG LUCY JANE 





ee eee en es ces OU ee OI cee I cos I os | 


Ce es ee ee hl 
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eee Quam eee: 


Invent the names 
of five Fixed 
Point variables. 


Invent the names 
of five Floating 
Point variables. 


(Write them on 
scratch paper. ) 


ANSWER ON P. 16 


(Write them on 
scratch paper. ) 


ANSWER ON P. 


| 












To be able to use a number 
in a program, it is not always necessary to invent a 


Fortran variable for it, and then read in a value. 





Numbers may be written as deci- 
mal numerals in Fortran state- 
ments. 





ey 


Fortran Constants 














SEUAUUDDUANEEOUUUEUUUCUOUUEEOOUOUEEOOTUEOEOEEOOUEE PUUUEUUUUUGOUEOCUOR DEO GEOGOOOTOGUEOOEUUROOTEOOEIOENE 
The Fortran variables you have 
learned about thus far have been single entities. 
They are called "nonsubscripted" variables 
to distinguish them from another type of variable, 


the "subscripted" variable. 


THUMUUOEEEUUUCUUOUOUEUCUUEEEUEEOOEED 


SUTTER EEE OEE 


Nonsubscripted variables are automat- 
ically assigned one storage location by 


the compiler, when it compiles the 











Three: Variables and Constants 









Subscripted Variables, on 
the other hand, are 


assigned as many storage 
locations as you 


specify in the program. 


One-dimensional Array. 


A variable with more than one 
subscript is possible, but will not be 
discussed here. 





Source Program into an Object Program. 








es OE aces Mi ees Ves OI ee {AE ces (ME ce A Nees ME es No ec CE Ns | es a WR | 


pecssssssesesesssess ee ee TL taleds | 


NOTE: A variable with one subscript (at 
single subscripted variable) is called a 


beeseeeeseeees See 


re re ee ee ee ee ee ee 


sy 


4 


Because the storage allocation for any 
subprogram is built into the Object Program, 









any change in the storage requirements for 
that subprogram can be made only by 


changing the DIMENSION statement in the 
Source Program, and then recompiling 
that Source Program. 
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: UVOUUUOOOUOAUNOAURORAUOOUOROCUOUOUUNOUOHOONDOOUOOEUOOUROCUQUCUOOUDONEOOOO OOD CUTE LLL LLL 






The statement that must be used to assign 
storage locations to a subscripted variable 
is called a DIMENSION statement. 


tT 
LUVANEOAUGOUAUAUDOUCUOUSOUUGUOUDOOUOUEEOUOUOTS 


PTTL 


rT 


This statement instructs the Fortran Compiler to 
reserve a specified number of locations i 
for each subscripted variable in the program 
it is compiling. QQUUUUKOUNRUUAHUEAUOCUUHEUHAL HVEAUUUAAUUOOOUOQOQUNEQOUUEEOOUEOUUU NZS 
=For this reason, Subscripted = 
=Variables should be dimensioned = 
= for the maximum number that willz 
Zever be needed for that variable. = 
Tans UenUOAUOUUOUOOUKUNANOOUNCOUSUNCONUOLOOUOOUCOUOUOUOUROEOUUUOOUONES 


2NUDUUNDDOAUDEOUEEDOGUOEEOOUOOUUUEOOUOUOEUEOOL 
Lh 





The general form of a DIMENSION statement is 
DIMENSION vy,(n,), v2(m2),.-- 


"y'"' is any legal Fortran variable 
pases eee see eeses see ee sees 
t Note: 

'Several variables may be 
* "dimensioned" in one 

1 DIMENSION statement. 


ewes eee eee eee eee 


'n" is a Fixed Point Constant specifying 


the number of storage locations to be reserved 






or allocated to ''v." 


beseeeseees 


67 DIMENSION Statements 


vee 
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oo 


Variables are allocated storage 
locations by the Fortran Compiler, 


Nonsubscripted Variables are allocated 
one storage location, and 


Subscripted Variables are allocated 
as many locations as you specify in the 
DIMENSION statement. 






You have already learned that 


Actually the compiler allocates storage locations 
in either of two ways: 











l. asa relative address, internal to 
the program in which the variable 
is used, or 


2. aS an absolute address in a special 
part of memory called Common. 








Three: Variables and Constants 


This 
technique allows the 
compiler to compile 


one subprogram 
completely 
independent from 
any other 
subprogram. 


The compiler does 
not need to keep 
track of the 


relative addresses 
of internal 


variables from one 
subprogram 
to the next, 


even within the 
same job. 


a a see 















And the external, absolute 
addresses assigned to 
Common Variables are 
always assigned ina 
systematic way starting 

at the same absolute 
location. 


[4 


AUNGUUUUOUEVOUOGUED TUUUOUUANONUONDODEOUNUONUOHUOGOUOUGENOUOOOOOOUHOEOUOOVONEUUEOROOOEOUOT OLE 


Thus, the problem of communicating values 
from one subprogram to the next is not a 


problem solved by the compiler. It is your 
responsibility, and must be a part of the 


design of your program. 


PTTL LLL 
AUNUNDEEEUOEUOODUODOREHUOENOOUOED) 


L 


LDDOUUOODOUUOONOUUAUGOUGUHNOUOGSOGUUGUUOUENOEUOHOLS 
If a variable is not 
listed in a COMMON 
statement, it is an 
Internal Variable. 

TTT ELLE LEC LCULELECUL EL 


BUTT 
TT 


STH 
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SOTUUDEUADEAUEAUUUUEETOUECETOOATRAUUEEEETOEUERE 
= Variables that are 
= listed in a COMMON => 
= statement are called = 


=Common 


ET 


— 


— ae 


L 


You may communicate the values of internal 
variables from one subprogram to another 


by means of arguments in a calling sequence; 
a complicated technique reserved for a 


future learning experience. 


UULUUEEUEUDDUUEUUUEOOEDOUDEOEOEUOEOEEUEOOTATS 


EQ CDEEUUEUOTUAECEOUECTOE ECHR ECTOUEETEEEE EEE 


SUUUUOOUOUUOLUOUUUDOUQUUUCOCOUHEUOUOUOUUOUOEOOQCCCOCCEUREOOQOUOOUOOLE TEC ELELULULLLLE LLL LOL LLL 


5 














You may communicate Common 
Variables 
by listing them in COMMON 
statements 
in the subprograms between which 
you want them communicated. 







The general form of a 
COMMON statement is 


COMMON v),, 
The ''v's 


V2, V3, 
" are variables. 









Variables. 


a 


— 
Qe 





Common Storage 





ae a ——— ee cor ror gor =— vr == vw- eee mead po por, =, 


Pa ee ee ee ee ee ee ee ee ee ee ee ee ee 





" leet | 


If the nonsubscripted variables, A, B, 
and C are used in Subroutine PETER, 
write the COMMON statement that will 
assign them to the first three Common 
Storage locations. 


OLenaaaeseeeeeee 


SWER™ ON 


A 
H 
ol 


H i If Subroutine 

' SPECAL uses only ci 
i write a COMMON 
' statement for 
'SPECAL. 

1 

1 

1 


es ER ON Po it 


WE P. 16 


al 


ON aca ae cane ios 


' t How many Common Storage locations 
i will be allocated by the following pair 
‘ of statements ? 


i CQOMMQN X, Y, Z 
! DIMENSIGN X(100), ¥(100), Z(100) 
t 


ANSWER ON P. 168 


= 
seeseeesesssesd 


f r= §686Ff ; Poy 8 ie i | 


H If A, B, andC are niso to be used in 

H Subroutine HELP, write the COMMON 
H statement for HELP that will also 

; asSign them to the first three locations 
H in Common. 


= oF 


ANSWER ON P. 


Five: Arithmetic Expressions 


ebeeeeeeeeeeuess 


_ 
N 


C) Berenson eee oe 


If A, B, and C are also to be 
used in the Main Program 
that calls PETER and HELP, 


ment for A, B, and C. 


“ANSWER ON P. 17 


‘ 
' 
' 
1 
' 
' 
' 
' 
H 
write the COMMON state- H 
' 
1 
' 
1 
' 
J 
3 


How many Common Storage locations 
will be allocated by these two 


statements ? 


CGMMGN AJAX, BILLY, LAZY 
DIMENSIGN BILLY (100) 


ee 


beeseeeeeeeseesd 


ANSWER ON P. 165 
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_ 
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PUT 
There may be only = 


one, or there may 
be several 
numerical values, 
punched on one 


tabulating card. 
UU 





The transmission of numerical values 
into and out of the computer during 


14 


PTT 
A tabulating card 

containing several 
numerical values 

is described as 
having several 


data fields. 
HUnUTRHTT HUCUUAUEATEAUATATATOUEL 


the execution of a program is controlled 
by Input and Output instructions. 


SUUUDOLORGAULOOUEDODRREDOUOOD 


SUTTUEULUEDAUHEUDEEEEGD 


EUEGQUOUOUUEEOEOUGUEUOOQUOETS 


SUUDUAEEEEDOUEREDUROCEOEEEEEEE 








CUDUOLADUNCOUOUUAUEOUUCUUDOUUUONTOUOUOCSUGUUHOGUEOUCCHOCEOSOOCCRUUO GOCUOEEOUOOORCOOOEECEO OUTS 





A 


In their original form, these 
numerical values are punched 
on tabulating cards. Each 

digit of the numerical value 
is punched in one column. 






For purposes of 
description, each value is said 

to occupy one 
"data field." 


QUDDUUOEROOEOOGUOGUHONOOUUOODONOQUEUTS 


MTU 


a 


15 Input Data Fields 
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For example, if 1000 is to be 
read in as the value of '"k," 
it could be punched in the 
first four columns of a 
card. 


eee Ll 





Numbers may also be read 
in that are to be value (s) of 


Fixed Point variables. 
























ST 


The 
description of 


this data field 
would be 


14 


where "I" 
specifies 
Fixed Point 


(Integer) mode; 
and where ''4" 


specifies four 
columns 
in the data field. 


H In a FORMAT 

H statement it would be 
H 

1 

1 





SOUDEULUAOULQQCUUOGHEREULGUGQUCUEUHEREOUOGEGROQOQCOUO ERO REGROCEOOEORERERETOEOEOUEEEOEEEEE 





written as 
FQGRMAT (I4) 





ee ee Fe Pe OO ee ry, Fe ee) 


pr 


May yey yy yy 


DU UUODORGUNAUCCHOUGHGUOEORGCQMOUCUCROREUORODUREOR OOO GOOOGROUONSEOEILS 
There may be more columns in 
a data field than are needed to 


contain the number in that field. 


If the number is Fixed Point, the 
field should be described so that 


the number will be "right- 
eared justified" within it. The extra columns 
should be at the left ofthe number. 












pasensenen Seennecenseeeeseeen ET 
should be read in with an 19 : 

1 
H data field description. The unused columns are treated i 
i as zeros. Zeros to the left of a Fixed Point number H 

' 
H will not effect its value. Zeros to the right will increase 1 
! its value by factors of 10. H 
bLeseus See SS SSS SS SSS SSS SEES Se Se Eee ace cee oe 
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Input FORMAT Description 








ee ee ee ee ee ee ee he ee | 
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Several data fields ina row, having the same 
description, may be described by multiplying 
the description. 
The three data field descriptions, 

F10.3, F10.3, F10.3 


can be written as 


The data field descriptions for a card should 
be written ina FORMAT statement in the Fortran 
program that reads the card: 


FQRMAT (14, 3F10. 3) 


This statement is not executed. Its only purpose 
is to supply information for the statement which, 
when executed, actually causes the card to be read. 












3F10.3 
The "3" before the ''F'' means that there are 
three fields described. 





TE UUUEERCROU OE GEGUOUGCORTENTEEGUUUUOR EEO UER OU EOEODEROOUEOUR DOU DONED: 
The statement which, when 
executed, causes the card to 
be read is a READ state- 


ment. 
TT 





2 
ai 





ee ee ee 


May Nak, My yyy Ply aly ely ly yy 
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The general form of a READ statement is 
READ n, Variable List 


where "'n" is the number of the FORMAT 
statement that describes the card to be read, 
and where the "Variable List" is a list of 
the variables where the numbers are 
to be stored. 


Thus, to read this card, 


the following 
FQGRMAT and 
READ statements 
could be used: 





3 FGRMAT (19) 
READ 3, N 





Tt 
The effect of the execution of 
this READ statement will be to 
store one thousand for the 


value of N. 
COURUGUROOGUREUGOUOUDERGECGUDOUECRORGORORGGGUCOROR DOR OEOGOGENOROES 


STUTUTLEL 


! This card could be read in with these statements: 













































































4 FQRMAT (14, 3F10. 3) 
READ 4, N, X, Y, Z 





DUGUUDGR EGU GGUCUCGOUURORDERDORUCORDOCUCCCUE OCU ROUDODUCGOCROCOROOEDD, 
After execution of the RE 


statement 

N = 3 X = 16.341 

Y = 14.942 and Z = 12.131 
2 ae 


PUTT 
Pi 


Lal 


READ Statements 











Four: Input Statements 
2 a a a de caren eee 


The READ statement will cause a 
value to be read in for every variable 
on the variable list. 


Each variable requires a 
FORMAT description. 


PTTL 





POULT LLL 


* 


SOUALUUUUUTUEACUHUUEEOUOUEGUEEEOOUQOGUUCCRUQUEEROQEOTEROHCQUOUUOOCUGUGRERUOUOGOE AER OGEOUEOUOEL 


There should be 
agreement of 
mode, 










There is a one-to-one positional 
correspondence between the variables 
on the list and the description in the 
FORMAT statement. 


The number in the first data field, 
the one described by the first descrip- 
tion, is stored in the first variable on 
the variable list. 

















Integer number in 
the data field; 
Fixed Point (I) 
description in the 


FORMAT 

statement; 

Fixed Point 
variable in 

the list. 


Floating Point 
number in the data 
field; Floating 

Point (F) 
description in 
the FORMAT 

statement; 
Floating Point 
variable in the 
list. 






























The numerical value in the second data field 
becomes the value of the second variable on 
the list. 


The third value is assigned to the third 
variable, etc. 


















This process continues until every variable 
on the list has a value assigned to it. 










ae ee ee ee ee ee ee 
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Several cards can be read with the same 
FORMAT statement during the execution of 
one READ statement. 


The READ statement continues to read 
in numbers as long as there are variables on 
its list for which no values have yet been 
read in. 


For example, 


33 FQRMAT (F10.3, F8. 2) 
READ 33, A, B, C, D, E, F, G, H 


would read in a value for "A" and "B" from the first 
card, then return to the beginning of the FORMAT 
statement and read in two values from the second car 


for "C" and "'D", two for "E" and "'F" 
from the third card, and for "'G" and 
"H" from the fourth card. 


| 





Descriptions inthe FORMAT statement 
apply consecutively to variables on the list. 


If the last description has been applied and 
if there are still more variables on the 
list, the FORMAT descriptions are 
repeated from the left parenthesis, but apply 
to the next card following the one just read. 


SOUUUUUUUEUGUOTEUEOOEUOOUUOUUQCUEODEUOOUOOEOREOODODEEDRE 
Values for subscripted 
variables may be 
read in the 
same way. 


es TUTTLE LLU LCL LLL LLO LLL ELL 


TTT 


PUT 


4 


For example, 
to read in values for the subscripted variable X(I), 
where the subscript "I'' runs from one to fifteen, 
the following READ statement could be used: 


d 


— 


beeeeeeeeeeee eee eee 


READ 11, X(1), X(2), X(3), X(4), X(5), 
(6), X(7), X(8), X(9), (10), X(11), 
X(12), (13), X(14), X(15) 


ee i | 
beweeeeeeee eee 


Relations between Fields, Descriptions, and the Variable List 


SS ae oestiiietaiiiilimetiadl 








CTE 
But this rather lengthy (and 
tiring) procedure can be short- 
ened considerably by using a 
technique called "List Control. "E 

TTI 


read in is determined by the 
range of the subscript. This 
range is specified in the List 
Control. 


PUTT 





continue until the List is exhausted. 


statement. 






When using subscripted variables, 
the number of values that will be 


The 


UUEELEURCUEREGORECEEERCRCUOU TEETER 


SUNUAGUU ROD OORNGORREOUL HUENENAUUUCCNTOuuenn4uenenngnscoceneegsucnennvuseensnsuocevgnsuesnsni 
QUCUVAUANANUORACANOVOCUEUEUOUOUOUOUOOGOUUUCOTOEOUROOREOUOEOUOUE COU 
List Control is, therefore, a 
special technique that can be 
used to read in the values of a 


subscripted variable. 
UUROUODROUGODRGAURACRGHEACROIEHEROUGGUOCCUOROROTORDNDOCEONOROR OEE 


This process of reading from the next card 
and repeating the FORMAT description will 


READ statement will continue to be executed 
until X(700) has a value read in for it. 


At that point the RE AD statement will be 
finished, and control will pass to the next 


a 


Four: Input Statements 













The general form of List Control is 
(x(i), i= m, n) 
where x(i) is the subscripted variable and 


i =m, nis the range of the subscript 
Ina READ statement, values will be read in 


and stored in ''m" and succeeding locations 
until and including "n."' 









' For example, 

1 44 FORMAT (7F10. 3) 

H READ 44, (X(I), I=1, 7) 
J 


! will read in eight values from the data 
' card for X(1), X(2), X(3), X(4). . . X(7), 
i respectively. 


a eee fk: 


J 


tau 


1 Using this combination, 
66 FORMAT (7F10. 3) 
READ 66, (X(I), I = 1,700) 


seven values will be read from the first card 
for X(1) through X(7). 
Repeating the FORMAT description and 


will be read for X(8) to X(14), etc. 


reading from the next card, seven more values 


Ee ee eS ee eS ee ee ee ee eee 


On a tabulating card, a group of 
columns containing numbers to 
be read in as one numerical value 
is calleda field. 





Whenever a READ statement is 

executed, it reads values from 

the next data card according to 

the descriptions specified ina 
statement. 


possssssssssses 


ANSWER ON’ P_ 


©) Ee aneeene 


One data field is 
read in for every 


Wbesuaeseeeeeees 


_ 
Nu 


eee 


beeeeeeeeeeenend 


READ 62, A,B,C “ANSWER” ON” Po 175 


on the 
OBS eae ee it ee saneee eee ween eneeeeenee neeren Variable List. 

H Ow many data 1 1 H : 1 - 
H 1 1 How many data fields will be 1 wmmmmnmn ROWER ON Po iss 
H Seana oe i t read by a READ statement that i 
' RE fen H ! has five variables on its H 

' ry ry : 2 1 
statement? H RO hn Sat ae a 

2 


(42) noeecae a Sa ena eo idee geo ay ‘How many data fields 
t FORMAT statements are on the card 

i describe the described by this 

H 
1 
1 
1 
Te 


' 

1 

1 

t 

' statement? 

162 FQRMAT (3F10. 4) 


INP. 1 


seuseeeseeeeee 


ANSWER ON P. 1 


1 
Sisdecwcawen 
oe 

Oe 


a Exercises 








ei 


How many data cards will be H 
read by these statements ? H 
62 FORMAT (3F10. 4) ' 
READ 62, A, B, C i 

tt pee uate aennaeneaeaenleeeesed 
ANSWER ON P. 172 


How many data fields will be 


a 
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How many data fields aret 
on the card described by 
this statement? 

23 FGRMAT (10F 8. 3) 


ase =a28 - 


ANSWER ON’ P. 


pan | 
Obesseaeaee= 


read by a READ statement that 
has one thousand variables on its 
Variable List? 


How many data cards will be 
read by these statements ? 
23 FG@RMAT (10F8. 3) 


© eee enna eer 


How many data fields will be 
read by this statement? 


READ 23, (Z(K), K = 1,100) 


ANSWER ON’ P. 


Nb eseseseseeeeee 


wll 
Nu 


Whanseeseeeeeess 


see) 


CRE ee mere 


' 

' How many data fields will be 
tread in by this statement? 

1 


!READ 65, (A(M), M = 1,N) 
be ee wesw ee ewes se sees eene sessed 


ANSWER ON P. 175 


READ 23, (Z(K), K = 1,100) 


he 


hese 


1 
~ 
nu 


ANSWER ON P. 


How many data cards will be 
read by these two statements? 
44 FQGRMAT (14) 

READ 44, I, J, K, L, M, N 


ANSWER ON P. 


Obeanuasaseen 


yl 
eT 


DO 


ee ee ee ee 
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' 

On the first line of a fresh coding sheet,t 
write a subroutine-defining statement ' 
for a subroutine to be called INPUT. 






























































1 
! 
1 
! 
1 
1 
1 
H 
i Begin this statement in column 7. 
1 

4 


beseeeeeee 





pececemennenneenenemeeneseny 

{Did your statement | 
PU i] : +a 4 
= Correct it so that it does. = ' Took ene: H 
= = 1 1 
= This is the correct form of a =4-- oe 1 SUBRPUTINE INEUT i 
= subroutine-defining statement. = ee 
EMM ne 





ey 


On the next line write a 
DIMENSION statement for a 

variable called X. Make 
provision for a maximum of 

1000 storage locations for X. 


posessseseng 





— Gy ly 


Input Task and Diagnosis 


sibiadiatliilitaad 


eee lteleteteteteteted | 


The function of a DIMENSION statement 
is to instruct the Compiler to set aside a 
specified number of storage locations for a 
variable that is to be subscripted. The 


number of locations is specified by the 
number in parentheses after the name 
of the variable. This number must be 
a Fixed Point Constant. 





iif not, the order is not important, except that it should be th 
‘same in later COMMON statements. 

X here is named only. No subscript notation is needed. The 
Compiler will learn from the DIMENSION statement that X 
requires more than one storage location. 

'N will automatically be assigned one storage location. 


t 
1 
1 
' 
! 


——I""Write'a COMMON statement” 
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bles | 


Did your statement look like 
this 


DIMENSIQN X(1000) 


Ltt ttle latte 


possesses 
heneeeeeees 





assigning 


N and X to COMMON storage 
locations. 


Fhe ee os oe ee 


sae 
aes 


press cesses e sees seseesesssesssseey 


Did your statement look like 
this: 


CQOMMGN N, X 


poccsssessss 
beeeeseese 
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“ee ee 


Preece esse ee esse ees sees sess eseeees s 
! Write and number a FORMAT } 
! statement that describes a card { 
' with one Fixed Point data field 1 
1 having a width of four columns. i 


Next, write a READ statement 

that reads in the value of a 
variable called N, according 
to the FORMAT statement you 
just wrote. 


aeeeeeeeeeeeeng 
seseeneeesseeed 


Geeeeeeeeseeee senses see seeeeeee —eoceo 


Assume that the values to be read in for X are 
already punched in tabulating cards. 


Assume that there are three digits in the 
fraction, that each data field is eight 


columns wide, and that there are ten data 
fields on a card. Now write and number a 


FORMAT statement to be used to read these 
values. 


— 


Se eS ee ee ee 






r 

i Do your last two statements look i 

H something like this: i 

H 63 FQ@RMAT (14) ae 
i READ 63, N : 
bc sraseeeee Severe ae wensdadiedae eee 








The READ statement must refer 
to a FORMAT statement by 
using the number of that FORMAT 
statement. In the "correct" 
answer the FORMAT statement was 
number 63. Your answer may 
have a different number. This is 
all right. If necessary, repair 
your statements. 


Input Task and Diagnosis 
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Do your FORMAT and READ 
statements look something 
like this: 
15 FQ@RMAT (10F8. 3) 
READ 15, (X(I), I= 1, N) 





2 eee ene nt 
The FORMAT statement number must be the same as the 
reference to it in the READ statement. 


The number of values to be read in by the READ 
statement is specified by List Control. 


(x(), I= 1, N) 


Ba la aa eae a alee a 





»>-—_ for-onh ~~ pb le | reo rer) rt rr". or" 


Now write a READ statement, referring 
to the FORMAT statement you just 
wrote. Using List Control, specify that 

N values are to be read in for the 


subscripted variable X(I). 


ee 
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besseseeeeeeeseeeeeeeee dd 


Seer ee | 


1 
1 
1 
J 
1 
1 
1 
J 
1 
1 
' 
1 
a 





ee ee ae 


ee ee ee eT ae ae ae ee ee ee eee 


ptt s es ees eee se sees 


al 


Whatever value is read in for N in the previous READ 
statement will determine the upper limit of the 


value of the subscript, I. If 100 is read in for N, 100 

values of X will be read in in this READ 
statement List Control. If necessary, repair your 
READ and FORMAT statements. ; 


The work required of this 
subroutine is now completed. 
Write a statement that will 
cause control to return to the 
ain Program. 


eee eee eee eee eee 
Did your statement 
look like this: 


RETURN 





seseseeeee sy 
beeeeeeenee 







Syeentseeedr nang secescecee 
LL bleltetiete baled ! 

if not, repair it. This + i 
statement returns 
control to the 


ee 


« This subroutine now requires 
only one more statement: 





pocsssssess4 


Main Program. 
ease seen eee eee seed 


the one that marks its end. 
Write that statement. 


Ps om as ot oo seeeeeneee eee eeeeeeeeenee 


1 
If so, you have completed ——<—_—_____— 
the task for this H 
section. 


Does it look like this: 
END 


- 
prscssessss4 


eee eee te | 


1 
1 
1 
1 
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Part Five: ARITHMETIC EXPRESSIONS 






Expressions @ The Hierarchy of 
Operations @ Parentheses @ Ex- 
ercises @ Mixed Expressions@ 
Exercises 


* 





An expression is a series of 
variables and/or constants 
connected by arithmetic 
operation symbols. 
A+B- ALPHA (9) ** 2 is an 
arithmetic expression. 


A numerical value of an 


of the Object Program. 


au 





expression is calculated during the execution 
The result of this calculation is one number. 


CERESUQERORCGEEEECREECEEECEER OEE 


eT 


rn 


aaeeetaeesenaeneeneneemeens 


—_ 


fon is oe aes ee fiom Pile Tien Mien ee en ee tee ee ee ee | 


eee eee eeeeoeeSeSef_l” 







The following examples are expressions: 










The following arithmetic operations may be Pee V PETER ** JGHN 
specified in an expression: T / D 3.1416/PEI 
FORTRAN SYMBOL OPERATION E* F 89.65 ** ALPHA 
A - B B - 3.975 
** Exponentiation 
/ Division X + Y S + 2.0 


* Multiplication 
- Subtraction 
+ Addition 



































L 


= AUUUOUNUOUAUOOUUCONENOOUUCOONECUOUUGOUOOOUOUAUOUACEOOUCUOUOUOUUNEOOOUOUOOOUOEOUGCCOCHDOCHOOOUEOOOEOOUE ODDS 
In an expression, there may be any number 

(within reason) of variables and/or constants 
connected by operation symbols: 


A+B*C/D ** F+G ** 2,876 - PETER 


Cc 2.876 Z 
A+Bx ie +679. PETER i 
( BR in normal ore notation. = 


Or, there may be just one variable, BAKER, 


or one constant, 89.64. = 
S AUAUUAUCUAAUQONCUOUOUUUOGHEHOUANDONCUSOUGCUOOOCUIOOUHQQUUOONGGOOUUCCOOCCRTOMCUGEOUECOOCUOOOCUUREREUEOTE LETS 








In calculating the value of an 
expression, only one 

arithmetic operation is done at 

atime. The order in which they 
are done is (and must 

be) specified in the expression 

itself. 


4 
TOO 


al 
7] 
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The Hierarchy of Operations 








Five: Arithmetic Expressions 










The Hierarchy of Operations rules state that 
in every arithmetic expression: 






PUTTTIULLEL ELLE ECL CCU LLOLLLCUOLL CELL LLO LLG 
The rules governing the order 
of operations in expressions 
are called: 
The Hierarchy of Operations. 
TTT EEUU 


Exponentiation (**) is done first , 

Multiplication (*) and Division (/) second, 
and 

Addition (+) and Subtraction (-) last. 


PUTT 
PATEL 


PUTT LEE E ELL Led 
In the expression, 
X-Z*A** F 
the exponentiation, A **F, is 


calculated first, the result is 
multiplied by Z, and the result 


r 


i 


= This means that 


in the expression, 
A+B/C 
the division of B by C 
is done first. The 
result of that 


of that multiplication is sub- 
tracted from X. 


division is then 


PUTT LEE LEE CCL 


i 


added to A. 


ul 


7 


There are three "levels" in the 
Hierarchy of Operations: 


(1) Exponentiation 

(2) Multiplication and 
Division 

(3) Addition and Subtraction 


SUT 
TUTTO 


pee ee Wee ee ieee Mikes len ten tan Tan Milan Mien Men Men Elen Mee. 
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Each first level operation (exponentiation) in an 
expression is done first, from left to right . 


Operations at the second level 


(Multiplication and Division) are done next, from 
left to right. 


Operations at the third level (Addition and 
Subtraction) are done next, from left to right. 





‘In the expression A* B/C * D/E all the operations are 
second level; therefore, the first multiplication (A * B) is 


done first. This result is divided by C. 


‘This result is multiplied by D. This result is divided by E. 


OUUOUAUNOOUEOMOUUOUUEOUOUUROUODOUOOGCUHOUUOUUGOOUOOUOCO OOO OOEEOOO ROMS 
Thus, it is possible (and 
advisable) to analyze precisely 
the order in which each level of 
operation will be done in any 

expression. 

SUUUUEULUGUUNUUHOOUOUOQUUCUEUOCCOUEQGUQ00EUCRUGQ00TIUROCRUIEUOERETEIDES 


ATUL 


A 


Leseeeceeeeeseed 





ee ee ee ee 


To alter the order indicated by the 
Hierarchy of Operations, parentheses 


may be added. Those parts of an 
expression that are enclosed in 
parentheses will be calculated before 
those that are not. 


See Serer Lo 
Thus, in the expression, 


1 
1 
1 
I 
(A + B)/C i 

A will be added to B first ' 
even though it is a third H 

] 

level operation, because it is i 
enclosed in parentheses. This 2 
sum will be divided by C second. H 
1 

1 

iJ 


ij Parentheses 
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ee 





SS 


eee etal eteted attested etsletelels 


Seer | 


In the expression { 
A ** (X - Z) 
the Z will be 


subtracted from X ' 
first. This difference! 


Ss 


' 
twill then be the powers 
tto which A is raised. 
' 


PUTT UEC UL UCC Co LLU Ob Lb 


The way most programmers use the 
parentheses rule and the Hierarchy of 
Operations is this: 


first, they write an expression that 
they believe will accomplish the 
operations they desire; 

then they analyze it to determine 
whether it really does. 


UT 
TUULUDEAUAOEDUUAENGREUUUCUUEODOOOUOUOOOOODE 


TEAMNMUOUENMUODORUOQSEOODOEOUUGUROGUUANOEOUCUOEOREOUUORCOUEUUHDEROUOROGEEEOUOOUEROOUETEROOG TE 


or otherwise change the 
expression so that it will do 


PULL 


whatever is originally intended. 
MTT 


There may be more than one operation inside a pair of 
parentheses: 


In this case, the operations inside the parentheses will be 
done in the order indicated by the Hierarchy of Cperations: 
B/C first; added to A second, raised to D third. 


Sees eens ee eS SE SEES SSS ee eee sessed 










TEPC LULU EEECELO LEE ELLEOL EEO LL LL 
Finally, they add parentheses 


a 


(A + B/C)** D 






The Hierarchy of Operations inside a 
pair of parentheses is the same as the 
Hierarchy of Operations outside the 
parentheses. And, the Hierarchy inside 
may be altered by using an additional 
set of paired parentheses: 


((A + B)/C) ** D 





Operations within the innermost pair 
of parentheses are performed first, as 
indicated by the Hierarchy of Operations 





The next innermost next, etc., until 
the expression is one numerical value. 








Pe nee ee eee 


Five: Arithmetic Expressions 


a ne ee ee ee ee ee 










In writing an expression be 
careful not to have two 
operations in a row. For example 

? 
A+-B isillegal . 
To repair it, parentheses are added: 


A + (-B) is legal. 


SEOPEUAUOUUOEACVEEOU EEO UOUCEUCDEAEEPOOOREOEECEEOUEOTOEEEEEOROOUOUCCOREEEEOOOOOEOCEEOEEEEEOEE, 
The operation symbols in a 

Fortran expression are operations, 
and never the sign of a variable or constant. 


Therefore, (-B) should not be 
thought of as a negative number. The 
minus symbol in this example is an operation 
symbol, not a sign. 
PTT LEUE OPEL LOL ECOL LOE LOL ULE ELLE LLL og 


VOREEEOOEECUEUEEEECEEEEEEEEEEEEDEEE EE, 


A 


RITTER ULEOL UCL LLOLUOLE CLL ECLLOLL LLL LLL Lid 
Thus, 


(-B) is compiled as 
though there were 
a zero before the 
minus sign. 


(-B) means (0.0 - B) 
TEEPE PEELE EEE 
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Parentheses 
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of this What is the value 
expression? of this expression? 


What is the 
value of this 
expression? 
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i 

2.0 - (3.04 4.0) 1 
' 

i 
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__ 


seseeneseeeee 
we eeesese sees 


pes seseeeseeeees 


1 (8.04 8.0) / 4.0 (A+B)/C_ if 

H A = 8.0 

iscaeseuuecceewececusee B = 8.0 Us ao eT a 
ANSWER ON P. 162 C=4.0 ANSWER ON P. 16 


ANSWER ON P. 17 
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What is the value 
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! Write the Fortran $ expression? H 
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1 using the following values fors 1 formula: ' ANSWER ON P. 169 
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i still using the numbers for the variables. 
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'Now, performing 
ithe first-level 


operation and 
rewrite the 
formula. 


formula. 


ANSWER ON P. 16 


Now, working from the left, 
perform the first second- 
level operation, and rewrite 
the formula. 


beeesesesseseeeeeeee 
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1 

' 

1 

H ; H 
H operations ' 7 
tin the Hierarcy of ! ! 
H Operations, ! H 
1 
scarry out the H Next, perform |! 
| exponentiation, 1 the left-most H 
: and rewrite i third-level H 
1 the 4 t 
1 H H 
L 2 : 
H 
1 
' 


- aod 
ANSWER ON P. 169 


seseeeese= 
Wkeasaseeuaes 
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el 
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A 
one cecensnenmseseneeenneeng 
Now 
perform the 
last remaining 
operation. 


ANSWER ON P. 172 


Now, again moving from the 
left, perform the other second- 
level operation and rewrite the 
formula. 


bane eee see see gee 
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HOCCCUCEUTEUTATEUCTUEE ATE TEETER 


Floating Point calculations are 
used for most arithmetic 
computations. 


Fixed Point calculations are used 


Ly 
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° 
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=] 
+ 
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* 
(2 
5 
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operations. 


i For example, 

A+I 
tis a mixed expression 
'because ''A" is in the 
i Floating Point Mode, 


tand "I" is in the 
1 Fixed Point Mode. 
a 


aL 


UUCUURUUEROU TEE COUOUEUCOUGUECCOCEUEAOEEOOSCROEOUEEEOOHEUOQOROU TEER DES 


Calculations are carried out in 
the computer in Fixed Point 
Mode or in Floating Point Mode. 


2 
Ai 


UE 





A reminder: 
Integer Mode (Fixed Point) variables 
must have 


IJK LM orN 
as the first character. 
Floating Point Mode variables must begin with 


ABCDEFGH GPQRSTUVWXYZ 


ti 
beeeweeeeee eens eeeeeeee 


In general, the calculations specified 
in one expression must be entirely 


of one mode, and must not be a mixture 


of modes. 


Mixed Expressions 
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and 3.1416 is and constants may be raised 


Floating Point. ee | 


to Fixed Point powers. 


pee nenene nee eneneeneneny 

! Similarly, i 

LJ 

: J+ 3.1416 ! 

J 1 ; 

i is also a mixed H The only exception 

i expression! to the Mixed Expression 
| H because "J" is rule is exponentiation. 
: H Fixed Point 1 Floating Point variables 
1 

' 
H 1 


Mixed Expressions 
are illegal, 
with one exception. 


Je 


fS 
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PTTL ULL ELLCLLLUGLOLLLEL ALLL 
The illegality of mixed 
expressions is not 


arbitrary. It follows Raising fractional 


numbers (Floating 
Point) to whole 


from the different ways 
the numbers are stored 
in the computer. 


| 


number (Fixed 


PUTT 


1 
1X ** 2 is legal 
1X ** K is legal 


J 
! 
1 
i 2 
iN 
1 
1 
Lemans eee eeeee sees 


—_—$_$_—__——————————————— 


a 











Point) powers is 


PULL LLL reasonable 


** X is not legal 


aising whole 
** 2.0 is not legal ! 


umbers to 
ractional powers 
s not reasonable 
ecause the 

esult will be 
fractional. = 
TTT Ld 


because the result 










will be fractional . 





PTTL 
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ween cece nen eeeeennenny 
What mode are 
the following 
Fortran 
Variables? 


OS saeeeeeeeeeeee 


Pes eeseeee esses esse eee 





What mode is 


X ** 2 


Mk ee 


>! 
4 | 
ot 
mil 
ee) | 


wt 


Is the following 
expression 
lega]? 


a * X 


eee eee ee 
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Obesessasnseen dD 


L 1 
Marae H 1 What mode are 
1 . 
following i i te 
1 
Fortran H 1 Variables? 
Expressions? ! H 
A+B : H ei 
A - Cc H Leese meee eee eee 
ere ANSWER 
A/C H 
A ** C : 
wTemennnaNSWER ON Br 175 


meee eee 


Is the following 
expression 
legal? 


** 


ANSWER’ ON’ P. 17 
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1 
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- on 


What mode are 
the following 
Fortran 
Expressions ? 
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Part Six: ARITHMETIC STATEMENTS 





General Form @ Incrementing @ 
Accumulating @ Defining a Vari- 
able @ Conversion @ Exercises 














A= 


Ww 
+ 
Q 


A Fortran Arithmetic Statement has 


the following general form: Woviean Aeinmee 


Statement. 


1 
1 
1 
1 
1 
Soe 
'isa 
1 
Variable = Expression H 
1 
L 


After the numerical value of the 
expression is calculated, its 
value is stored as the value of 
the variable on the left of the 
equal sign. 


Se SR SSS SSS 





X = ALPHA / (C ** I)-FACTOR / SLIDE 


is a Fortran Arithmetic Statement. 


sue See eee Eee ee 


r 
: Il=K+L 
1 

i is a Fortran Arithmetic 
a 


potessssses4 


sees e sees eee eee eee eee eee 


Statement. 


t | t | r | Tl aah ~ i an ee | tv va _ ad — waa ‘ | 


eo 


















The effect of an Arithmetic Statement 
(when executed) is first to perform all 

the operations in the expression to the 
right of the equal sign, reducing that 

expression to one numerical value. 


Then this value is stored in the storage 
location for the variable named on the 
left of the equal sign. 





Everytime a variable is set 
equal to the value of an 
expression, 

Variable = Expression 
the previous value of the 
variable is replaced by the 


new value. The old value (if 


any) is lost. 












a yl 





SSeS Se See 


In Fortran, 
INCREMENTING 


may be accomplished 
by a statement like 
this: 


IT=1I+1 


possess sssssesssesny 
beeeeeeeeeeeeeeees 


ee 


The effect of oe ee 

is to add one to the current value of 
I and then to store this sum back in 

I. In other words, it adds one to the 

current value of I. 


BU 
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Incrementing 
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= 
1 1 
i In Fortran, t 
i] a 
H ACCUMULATING A ! 
i ' PTT Ut 
t ate H ote that in all the examples = 
! may be accomplished bya } =cited so far, it has been assumedz 
| statement like this: t =that all the variables in the = 
+ SUMX = SUMX + X ! = expression had "current values. "= 
Setar ar re PAM 
AUT CTE For a variable to have a current value, it must 


The effect of 
SUMX = SUMX + X 


is to add the current value of X to the current 
value of SUMX and then to store the sum back 
in 


have been used in some previous statement 
which, when executed, would have the effect of 


storing a value in its storage location. 


Variables that have current values are said to be 


"defined." 


SUMX. 


STU CUE 


TOPAU TOUTED TOUEDERTETEDETEUEDEEOT DUE CUT EE ER DE ROUEOEETDEUT EET R TEETER TOOT E TEETER ETE 





Saas eS Ss se ee ee ee 


Seo Buku ekekR Ee Bee 





PUTT 


Variables on the left side of the 


rE 


equal sign in arithmetic statements 


are defined because the 
numerical value of the expression 


will be stored in the variable. 


SUT C CT 
SUT 


SoPEATALSUURURERIOGUESRORSUUACOAELGEUESOUOANGENIOCUSAUEUNGRNENNEORES 
= Variables appearing on the 

= Variable List of a READ state- 
= ment are defined. Numerical 


= values are read in for them. 
PATI 





=The indexing variable in a DO 
statement (to be discussed later) 


is defined. The indexing 
variable is INITIALIZED and 


INCREMENTED each time the DO- 
loop is repeated. 


PU 


ir 


Variables that appear in COMMON 
statements are also said to be defined, be- 
cause their valuepresumably has been 


established in some previous Subroutine 
or in the Main Program. 


PU 54 
PU 


Ww 
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SLUTEOUUUUUUELROCUOEURUGUOUUUROOOUOUOREROUOOUUCUOOOERODROUOSEROUOUOOTERDOOLS 
=In all arithmetic statements cited 
so far, the variable on the left of 
the equal sign has been of the same 
mode as the expression. 
This need not be the case. 
TUTTE 


BUTT 
Siuunnnvnnuiiensnnitt 





TUT 





Conversion 





If a Floating Point variable 
is set equal to a Fixed 
Point expression, 





the value of the Fixed 

Point expression is 

converted to Floating 
Point mode before it is 
stored.in the Floating 
Point \variable. 





iFor example, 

' if N equals 4 

i FLN = N 

‘will set FLN equal to 4.0 











besessesessd 

























For example, if B equals 64. 872 


will set J equal to 64. 
The entire fractional part is 





A Fixed Point variable may be set 
equal to a Floating Point expression. 


In this case, the value of the 
Floating Point expression is "truncated." 
The fractional part of the value is 
discarded, and the Fixed Point variable 
is set equal to the whole part of 
the value of the Floating Point expression. 


rn fer 
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= 


Write an 
arithmetic 
statement 
that will add 
one to the 
variable I. 


ANSWER ON P. 


©) 


Write an 
arithmetic 
statement that 
will increase 
SUMX by the 
current value of X. 


Obeneneeeeeeeeeeseeeeees 


SS) Bee 


, 
~N 


Write an arithmetic 
statement that will 

set the variable DIST 
equal to the expression, 
TIME, multiplied by 
RATE. 


© 


Nb seseseeeeseeeeseese 


ANSWER’ ON’ P. 


Write an 
arithmetic 
statement that 
will increase the 
value of SUMX by 
X(I). 


ER ON P. 17 


tte a 


statements? 
R = 8.0 

S$ =4.0 
T=R+S 


What wouldbe the value of 
Y after execution of this 
sequence of arithmetic 


U=T*2.0 
Y=U/s 


ad 
ANSWER ON P. 170 
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The general 
form of an 
arithmetic 
statement in 
Fortran is 


What would be the value of 
X after execution of the 

following sequence of 
arithmetic statements ? 


A=3.5 
Be 45 


Nb eseeesesessesesess 


renee ee ee ee ee 2 
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Part Seven: CONTROL STATEMENTS 












Normal Flow of Control @ Unconditional 
Transfer of Control @ Conditional Trans- 
fer of Control @ IF-Loops @ DO-Loops @ 
Exercises @ A Sorting Example @ Sort- 
ing Task @ Diagnosis 


a Normal Flow of Control 4 





5 


Li 


The order in which 
statements are 
executed is 
extremely important 
in every program. 
PTUETEEL EU EEEEEUEELUP OPEL ELL ULL 


SSUUUUOUEUUUNOUETEUMEGUCUEUONCOTETEOCEETOMOUEOCEOUOOCEREOOOUECTOOOUR TERE ELE 


In Fortran programs, the 
Normal Flow of Control (the 


SULT TTET ETE 
STEETEEEEUEEDEDEEEDEEEROTEEE 


normal order of execution) 
is the actual sequence in 
Normal Flow of Control 
means that when all the 
operations specified in one 


which the statements appear 
in the program. 


statement have been com- 


pleted, control passes to SAUADDDODEOUORER DOM DUN GER GOECUREOOUCUENORURCHUODCCUOUUHUOUDUEODOUDDEEERS: 
the next statement forward 
in sequence. 





Ved ae ad ey ae eed eee ed ae ee tad Sey Sey Nae, 


anne ee ee ee ae ee ee ee 






Normal Flow of 


Control applies 



















Normal Flow of Control does not apply to non- 

executable statements. It does not apply to 
DIMENSIGN, CGMMGN, FGRMAT, 
CQYMMENT §s statements. 


Whenever these kinds of statements appear in 
the path of control, they are skipped, i. e., 


to 










Arithmetic 
Statements 


READ 
Statements 


PRINT 
Statements 











control ignores them. 






hh Aiea 
There is, however, a group of 
Fortran Control statements 


a 


rr 


SCTE 


that causes control to be transfered 


to a specified statement that may p nero ore tree asin Elie ef 


Control Statements: 
or may not be the next one in sequence. 


possesses eeesen 


Unconditional Transfer 
Conditional Transfer 


Loop -defining 


ay 
Led 
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The general form of a simple 


GGTGn 


where "'n'"' is the number 






For example, 


ol 
ol 


KX=Y+Z/A**2 


GO TG 55 


a 
[Ss 


ae eeee esses eee eee sees 


' When control reaches 


‘statement 74, the GO TO 55 
i causes it to transfer to 
: ' statement 55. 


aml ad et ad 


unconditional transfer statement is 


of some other statement in the program. 
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One oe eeniten he: TT) TEETER EEL 
When execute @ GO TO 


statement coeeadacag 





transfers control to the 


statement number specified. 
CUECLEQECEUCCCUMDOUCOCR CORON OER OOEOOGE DCC COD OU CLOQTOR EOC EUOOROROEE 


PUT 
PUDEA DEAE ESEOUR ERTL 


REMINDER 
PU 





Any statement 
in a program 


a 


may be The GO TO statement is 
numbered for calledan unconditional transfer 
reference : 
purposes. because it always transfers 


control to one 
One reason for 
numbering a 

statement is so 


particular statement every 
time it is executed. 


| 


ST TS 
PUTT 


S2UUUUMEDUUUEEOUUEUEOOGUCCELECEOEROCUECEOOONE 


that there may 
be a GO TO 
statement that 
transfers control 


to it. 
FTI 


ad Pan ced Muted ced ee a Mae ee ae 


an ee ee ee ee enn se 


SSUPTUETEDEUUREEGEERUCUUOO EU OOTOQUEREEEUOCTOGEOUEOUOEE 
The basic conditional 
transfer statement in 
Fortran is an IF 
statement. 
STUUUOUUELORCQEQCURCUQUOEACEEOGOUECUNEOUUOEGOTOROEOUE 





SUUUUOUEUUCUTATURUOUECOCURUOOOCUTOUTOEOTEEOTE OOO EUTECUOEDOOOHOOOEEOREOEOTOREOOUOEEOED 


The conditional transfer statement 
in Fortran transfers control to one 


PTT 


a 


STHTTLTETEES 





of three statements depending 
on the value of a specified 
Fortran expression. 


SET ETE 


z The general form of an IF statement is 
7 MU 


IF (e) ny, ny, n, 


where "'e"' is any arithmetic expression, and 
where n,, nz, and n3 are statement numbers. 


a 
rm 


Tr Control’ is: transfered to n, if "e" is negative. 


Control is transfered to n, if "'e'' is zero. 


ahe pranches pf an th Control is transfered to n; if "'e'' is positive. 


statement may all be forward in 
the program; they may all be 





backwards; or they may be a 
combination of the two types of 
branching. 


ay 


Conditional Transfer of Control 
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PUTT UUUOOUUGOOU GER NOGEOERODONONOROTEOEE 
An IF statement, then, is like a three- For example, 
if 
you want to compute 
the value of FACTOR 


way fork. The Flow of Control is to one 
of three statements (specified in the IF 


statement). These statements may be 


anywhere in the program. using ALPHA on 


some occasions, 


TECTTCCT UTC, 


PUTT 


SAUPUDOOUUUOUINGUUGUUGUUOUUUQUHGUEGUUOUHOREORUOUUQGEQOGHOOEOOOUOGCQUUGOUGUDORUESEOOOEGORODUOD Ee 


= 


and using BETA 
on other occasions, 


you could branch 
control to either). 


In a Flow Diagram this problem would look like this: se tO. paihe 


depending on the 






esi ‘ value of 
= FACTOR SWITCH. 





+ ae 
FACTOR 





ag aes las Wiens Wael Ones Waa Wiles Ola Wile Gian vans Wises Mika Wen Wier 


ee ee ee ee ee ee 2s 2 


SLUUUUVOAUEUETETECOCUUETEOUUCECCTTEUOEEOUEEUTEGUUEUOUOUGETOOUOOTOREUEOUODEEEOUOUU GEOR OOO REORCOOOUOEOOEEEOOOEL 


If the value of SWITCH is negative or zero, 
control will pass from the IF statement to 


statement 10. FACTOR will be computed using 
ALPHA. Control will pass (normally) to the 


GO TO statement. And then to statement 30, 
bypassing statement 20. 
: ‘CHOUAUUUUEUAOAUOUAUAUUATEGUOCUOEAUEGUUNUOAGEGUUUOOUEGUOOUALEOUEGEOUOUUAUEOHEMEAUSUEAUEGOEEEOEOUEGHEOHEGE 


wl 





UT VEDUEETET TERT 
An IF statement may also 


branch control backwards 


in a program. 
TUCEEVEEEEEU GEER COREE EECA CURE C ETRE EE ET RETR R ECE EE EEO 


SUUVDEVEDDUODEDODODED EL 
CUE 
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ue 
si 
= H In the program the problem would look like H 
= $ this: ease H 
= of IF (SWITCH) 10, 10, 20 H 
=: 10 FACTOR = ALPHA ** 2 H 
ee GGTP 30 H 
= 20 FACTOR = BETA ** 2 H 
30 sink H 

iJ 

é 


TUETLUUUEEEALL 


SSUUUUTUEUCUUUUUUOCEUEEREEEEOUCUEEEOEDOGUEOUUOURUOUEOUUEREORUOOEEREOUUONOOOGUEUROCOOOUUUONOUEOOOQUOUSEOOED: 


If the value of SWITCH is positive, 
control will pass from the IF statement 


to statement 20, bypassing statement 
10 and the GO TO statement. FACTOR 


will be computed using BETA, and control 
will pass (normally) to statement 30. 


STUADALEEACEUGURCUCAEOUSTOUECUCEUEEOOCUCUEEUEEETS 


PUTT 


SUOVUVEUELOEUOUEQOUAEAGORTEUGEE COE GEUGEUCCEOGUHOTHOCEOUEQGUHOUEODUROGHOUHOGHOUHOUEUOQOUUNOQGEOOUUODIUQUEORNEUE 








The repeated 
branching of 

control backwards 

by an IF 

statement is called 
an IF-loop. 


































IF-Loops 
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PUUUUUUUCU CULL. LCL LLL LCoS ooh 
The Counter to record the number of times 


HL Os wanted. to-repea: & the series had been repeated, 


series of statements ten 
times (i.e. , construct a 

looping process), you would 
need three basic things. 

A Counter, a Tester, and 

an Incrementer. 









the Tester to keep control cycling within the loop 
until the tenth pass was completed then to transfer 


= the loop, 


the Incrementer to increase the Counter by 
= one at each pass in the loop. 
STHAVAAOUUAUOMUAUOLAUOUONUOOUENOCSSOCOOUEOCOEOEOOUCUUUEUAUOEOEROOCOEQEUOCUOUAROUTOOOCUOQOUEROCOOUOCOECOULETS 
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DUDGUEEAEEDOEACG GOD DOUGUUEECOUOROEDEDECOGCUOR OUR OEO ONC CTEOREE TEE UOED 
The IF statement would fulfill 


the three following functions: 


SQ AUTUCUUEUEUCUOCSUE DOE OEOSEO GUO CSECUEOEEOSUOGEROTECUEOGEOUUEUEOOUDODEODUOGEUEEUOO EEO EOE DEERE 
To accomplish this in a program, you 
could define a variable to be used as the 


counter; use an IF statement to 


| 


Ts 
DT 


PUTT 


CTU OO 
repeat the loop the prescribed 

number of times; and write a special 

arithmetic statement that would increment 


the counter by one at each pass. 
TTPO PEE EEE ELLE ELEC LEU 


L 


PU 


COC 


1. Testing the counter 
variable at each pass 
for equality with ten. 


u 
F 


PU 
SUOEELOEUUADETEEDOEED 


vcd Nal ed sed an ey el aed ee ae ged geal” gal gical agames Od 


aanweeee een 2 2 2 


a 


2. 
Branching control at each pass 
to the incrementing statement, 
which would increase the 


Taking control 
out of the loop 
after the tenth 
pass test and 
branching it to 
the next 
executable statement 

in the program. 


counter variable by one before 
going back to the first state- 
ment in the loop. 


PU 


i 


Us 


TOUEPAUOUOUUDECRUGUUTEOUEEOUUTEUTOUHOOUIEOUUOTS 
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LE 


SOUPEUEOUOTECEO MOOR EROGUCUOCLOUHODOUUGHOCGUNOEEOUGHUER OOO GOORORODOCRUGUUDODEOOUDECROURDEOUUGOCR OURO CU OEOEOEEO DSS 
As long as "I'' is less than ten, the 
expression in the IF statement will be 
positive; and control will branch to 


The form could be like this: 


* 


statement 75 where "I" will be in- I=1 


cremented by one. Then control will 45 
be transferred back to statement 45. noe fs 
As soon as (10 - I) is zero, control 75 a on 1 1) 56, 56, 75 
will branch to statement 56. GOTO 45 
PTT EEELEEEEEOUd 56 
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TET 


PUT 


= An easier way to set up loops is witha 


9 
(e) 
a 
& 
® 
3 
® 
5 


A DO statement may be put at 
the beginning of the series of 
statements to be repeated. 


5 


STADTVEDULUTEEODEE TA EEEEO AUR CEEUCHUCROGEOEEOGROO CUCU REOUUEGEEQCUROGEOEROORDEREEOUEOEUED Le 





SUC TTCETTE CECE 





A DO statement differs from an IF statement in 
the following manner: 


It specifies the counting (or index) 
variable, gives its initial and final value, and 
indicates the statement number of the 


last statement in the series. 


PUTT 
EU 
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The general form of a DO statement is 
DGn i=m,, m, 


other statements 
in the series 















"n'' is the statement number of the last 
statement in the series of statements to 
be repeated. 

"i' is the index variable. 


" 


m," is the initial value of the index 
variable. 


"m,'' is the final value of the 
index variable. 


"'n'' must be a statement number. 
"i" must be a Fixed Point variable 


"mm," must be a Fixed Point constant 
or a Fixed Point variable. 


"m,'' must be a Fixed Point constant 
or a Fixed Point variable. 
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SPUNUUUUUOUUUDUDUNULOQURUUUOUGUUQGOENOUEEUQGOCOSEUGCROROOUEOUGUTECUOUEUOODEUEOCUOOUEEUEOOUEOED, 

All the statements following the 
DO statement will be executed in sequence 
until control reaches statement number 88. 


'For example, 


At this point, control will 
loop back to the first statement after the 
DO statement. 


DG 88 I1=1, 10 











I| 


| 


nN 


88 CQ@NTINUE 


pessesseseseseses 
beseeessseeeseeseeed 


PUL LU UCL CLO LLCO LLL AR 


The CONTINUE statement is a dummy 
statement that has no effect on the 


SQUVUAUDONUONEUUNUDROUEOUQOOECUUSUOECUAUUUUUOUEEOUOOOOEOOEUE TT program. 


= After the sequence has been re- 
= peated ten times, control will 
pass to the next statement fol- 

= lowing the CONTINUE statement. 
SUOUNUNOUAUODENAOGUCGOUENUOUUOQOOUOUUDOCULCQO0Q00QUUREUOOUELUGUOORUOED 


ity 


| 


It functions only as a convenient marker 
for the last statement in the range (the 
complete series of statements) of the DO 

statement. 


i 


y 









The "range" of a 
DO statement or 
DO-loop is the 


sequence of 
statements included 
in it. 





The general form of a CONTINUE 


statement is n CGNTINUE 
where ''n"' is the statement number 
specified in the DO statement. 








aan ee eee ee eee ee 


PT The first statement in the range of a DO-loop 
must be executable. It must not, for example, 


= There is no limit Z 
Zon the munber at be a FORMAT statement. 
= The last statement in the range 

must not be a transfer statement. 


statements that 
= It must not, for example, be a 
z 


may be in the 


PUT 





range of a DO GO TO or an IF statement. 
statement. 
SUUUVANAOCAEAAUOUOAUOURUEUEOAOUIOAATE 
PIT 
PTT You may have a statement in a 


DO-loop that transfers control out of 


You may have CALL the middle of the loop, but you 


statements 
in a DO-loop. may not have a statement in your program 
that would transfer control 


into the middle of the loop. 
PUEUAUACUOUQGEORUGOTEEEOROGEOEEOQOGEMOGROGUTEGECRECROGHOLOQOEROUO DEORE ODO RROOEOUEOROOQOHOOOTS 


BT 


| 


SUT 


TT 


ET 


PUT 


And you may have DO- 


loops within DO-loops. PON peay eave 1 


statements in a 
DO-loop. 


PU 


| 








ir 


a 
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Loops within loops 
are executed as 
follows: 















When control 
reaches the inner 
loop on the first 
pass, it remains 
there until that 
loop is satisfied. 


Control then returns 
to the remaining 

statements in the 
outer loop. It 

remains there until 
it reaches the 

last statement. 






Having completed 
the first pass, 
control then 
returns to the 
beginning of the 
outer loop and starts 
the entire process | 
over again. 














; 


seal were’ | 


rr 


The DO statement governing the outer loop 
determines the number of times that control 
will reach the inner loop. Thus, an index 
variable (in a DO statement governing an 


outer loop) with parameters from one to 
one hundred, would cause control to reach 
the inner loop one hundred times. 


UEDEDEEEUOSUEOEREADEEETODEDERUODEOSO STEREO EE LE 
TTUTEEPUTU OULU 


TTL EEE 

! "The general structure of "nested" loops is “es 
' 

H ie 1 
H DG 99 I =1, 100 
' eta : 
t DG 53 J=1, 50 H 
i seg inner outer ! 
H ee loop loop 4 
; 53 CQNTINUE t 
H eA ' 
i 99 CQNTINUE H 
: nue i 
i H 


Co Oi ie lca ies las la 
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SUCETTU LTTE ETUEETET TET T ETD 
In this example each statement in the inner loop 
will be executed 5,000 times. 


SLUPUUULOETEDEEUEUUETEUOUUUUUEUEEURO UL TEEE ETE UTERUEEEROEE ETO RETEEE UH EOED 


rE 


(Every time the inner loop is executed, Each time control reaches the 
each statement in it will be executed 50 
times. And since the inner loop will be 
executed a total of 100 times, according 
to the example, each inner loop state- 
ment will, therefore, be executed a total 


of 50 x 100 times. ) 
CULURDUUCURTEQUCEEECQCHOQCUTUTOUEEURUCUEORORO RCO EEEUCEEOMOUO REDO QGREDOCORCUUUEERUOQCUCOMDEEODEEOGEUEDOUEEE Re 


inner loop, the index variable 
there is initialized causing control 


to remain in the loop until the 
the loop is satisfied. 


ul 


ii 


J 


STULEAUEEUEMUECCEOLEECEECOUUEOCEGO0REEEEEEED 


UTD ETE CULE EEE CTE GEER EE TEEEE EEE EU CREE CEE EU EEE TEE DECREED EE ES: 


Note: 
All the statements in the range of the 
inner loop are within the range of the 
outer loop. 


Both the inner and outer loop index variables 
may be used as subscripts in the inner loop; 
however, the inner loop index may not be used 
as an outer loop subscript. 


DOUUOUOEEUGHODEGUEDNOLODEONODDSDOODODUDOODEDLE 
DTU 


I 


| 
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When executed, the Control statement 
IF (X) 10, 20, 30 

will cause control to be transferred to 

statement number 10 if X is 

To statement number 20 if X is 

And to statement number 30 if X is 


© 


When executed , the Control 


statement GG TG 55 


will cause control to be trans- 
ferred to statement number 


ene Se 


Onsen eee 


pea Eusutvccasauceaneue eticcdanecses Seteuuceseee: SEWER ON ET 
NSWER ON P. 16 
SS SS RBS SS SS SSS SS Se eee ee il seeuueeensese=®g 


The general form of a GO TO 
statement is In the following group of statements 
Go Fe 66 X = X + XINC 


Myatt ¢ 
where "'n'"' is the statement IF (K - XTEST) 66, 77, 77 


of an executable statement. 


ANSWER ON P. 1 


eee) 


77 


1 eae 


on 


control will branch backwards to statement 66 until 
the expression (X - XTEST) is either or 


ANSWER ON P. 


Obeauseeeeeeeeeeee eee 


ot 
or 





Bee BRBHMHeeRewMeeekeeaeskb# & & & 
ae er 


If the value of ABLE is larger than the 
value of BAKER, what would be the 
value of this expression (negative, zero, 


r | 


aeeeeee eee 
Omaseseeeseeeees 


1 
' 
tIn the following group of H positive)? 
statements i (ABLE - BAKER) 
lf (WHICH) 100, 200, 300 } mstnatmnneeaanciene Senaaaeee “ANSWER ONE 18 
1100... 1 
eee 1 
GG TG 999 H 
200... somes eee ene ee eee eee ence e eee eeeeeeees 
1 1 : . ' 
ape ' 1 When the following statement is ' 
300 Gg TE 999 H i executed, i 
aunt 1 H IF (ABLE - BAKER) 10, 20, 30 1 
999 | . i i where will control be transfered if H 
= = 5? 
ontrol will branch forward i ABLE = 10. and Beer. 0s i 
o statement 100, if WHICH; ene ene nn ene en enna ennnnenensnecenancns s~rz! 
ANSWER ON P. 165 


1) 
=senm 


ontrol will branch forward{ 


Sa eee ee ee 


Cc 
to statement 200, if WHICH | a 
j Satu SRT HEA ween ee eee e eens eee eee e eee eee 1 
Control will branch forward} ! If, when executed, this statement branches control to ' 
to statement 300, if WHICH: 1 " statement 60 H 
is ' 1 IF (GAMMA - TEST) 40, 50, 60 we may deduce that the ! 
i Regardless of which path } value of (GAMMA -TEST) was , andthatGAMMA 
icontrol follows, it will H ' was than TEST. ' 
falways reach statement | s ceuicccenenecasouabuseduas ssid dahaiichnsastiedittakieeemuetad 
tnumber | ANSWER ON P. 170 
bonueennesnananacebeneennnsans 
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will be repeated exactly 
times. 


What will be the value of CRS! 

(10) after this statement? 
CRS(10) = M 

if M = 64 


ANSWER ON’ P. 163 


ee sirinetiamucbaticd ever 
' 
; At the end of this series of I sees ee eee e eee eee eeeeeseseeeeseees 2 
1 statements, : t BIG will equal CHECK if CHECK: 
1 IF (CHECK - TABLE) 10, 20, 20 ! 1 was than TABLE, or ! 
1 10 BIG = TABLE ' | if CHECK was to H 
H GG TG 40 ! | TABLE. ———— 
20 ae ae i t sees eeeee see eee ANSWER ON P. 1 ail 
1 GQ TG 40 H 
1 40.. H 
H BIG will equal TABLE if H 
1 TABLE was than H (35) 
1 CHECK. i ssc rasaing DOCSSE 7} 
hosscdndnenaueonn dedanase ganahadnnanaaae : DG 6661-1, 1000 | 
ANSWER ON P. 165 ' 1 
H * 8 H 
1 ' 
H sf fade ! 
eee site eee 2 Ae 8 ese i 666 CONTINUE 
: 
' ' 
al 


In the following DO-loop 
DG 74K=1, N 
Z (K) = 1.0 

74 CQNTINUE 

the first N entries in the 

list Z will all be set equal to 


What would be the DIMENSIGN 
value of Z(3) after DG 101 =1, 300 
execution of this Z(I) = 1 ** 2 
sequence of 10 CQ@NTINUE 
statements ? Pare 


> 
z 
a 
= 
mi 
a 
ie} 
zi 
ma 
= 
a 
o 
d 


Geese 


ANSWER ON P. 170 


perenne) 


a 
ANSWER ON P. 163 


Pe ee ee ee ee a ae 


Mae ee eee eee ee ee 





What would be the value of 
In the following DO-loop Z(N) after execution of this 
SUMX = 0.0 sequence? 


DG 666 I = 1, 1000 


SUMX = SUMX + X(I) 1 FQRMAT (14) 





' 
1 
1 
' 
t 
1 
H 
666 CONTINUE i READ 1, N 
AAs i DG 22 I=1, N 
the total of all the values of KX! Z(I) = I ** 2 
from X(1) to anit will be H 22 CQ@NTINUE 
stored in i poe 
1 
sass e co mammnmmnmnmnaNSWER ON P. 170 


Pessseee ee eee 
Obenuannene seen eeeee eee 


saaaaar aaa ONE 

@, suse eee eee sees ce caus 
H SSeS ee eee eee ee SSBB SB BT BRS RRS Bee eee ee eee See eee eee =e H What will ue the signiti¢anie of K H 
U says 4 1 1 H 
| _ Fill in the statement numbers in the IF | t ' after this loop has been executed? 1 
' statement in this DO-loop so that BIGE will equal ' H BIGT = 0.0 7 
i the largest value of E when the loop is satisfied. i i DG 99 M = 1, MEND i 
H BIGE = 0.0 H H IF (BIGT - T(M)) 54, 999, 999 | 
: DG 101=1,N i 154 BIGT = T(M) i 
H IF (BIGE - E(I)) ; : H K=M i 
H 717 BIGE = E(I) H ! 999 CGNTINUE H 
H 10 CONTINUE i eee cts ard te Td 
beaeseseeeeeee eee eee aaa aaa abana 1 ER ON PP 170 


® 


iJ 
: oe 
1 ; 1 Write a DO-loop that will H 
i bebaeierg neni t increase by 1.0 each value ' 
t  yalues' oe ¥ te te: : t of X from X(1) to X(100). i 
1 ' 1 ry 
bannennnnnnnn sien ennnnan. acd bencendnanaanenessnsessscuenas= "338 
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P 
| The detailed step-by-stepi number, 


(2) copy that number onto a new list, and 


process would be H 
' 


something like this: (3) erase that number from the original 


list. 


possesses sessessesessesessesseesees "a 
a H 
! Numerical sorting is the t 
| H systematic rearranging of a i prccecennennennanne sneneeeneenenees sonseceny 
: : ' 
1 let of pumbere eviead i H Most ways, however, involve a I 
H prescribed order. H H ' 
adenine ete Sonesessaes Hl repetitive process, and repetitive H 
il i processes can usually be H 
pacaesangeyve Saenee eee “4 H programmed as loops. : 
6 senecenanenes sennenneee aeeeneseenee 
i There are, ' 
H I 
i of course, many ways 1! 
H to rearrange lists of ! ee ee eee ee eee eee eee ees ees sesso eseseseseesesees ===4 
i numbers and many H ' 
H different ways to sort 1 H 
i H For example, if you were told to sort a list of ' 
H them. ! numbers in descending order, you could proceed H 
Aiskibnbauceaudichbmndensianal J as follows: H 
You could repeatedly i 
ee jcccneweeessacann am (1) search through the list for the biggest H 
1 
1 
' 
& 
H 
1 
J 


aon oe ae cs Mls lace a le As les lees Mla Mtoe Me Mee 


“Ss 2 ne ee ee ee ee ee ee ea 


Ld 


Keep track of the assumed biggest number by writing it 


Begin by assuming that the 
first number on the list was 

the biggest one. Then, by 
comparing it with the next 


down and noting its position on the list. Then every 


Leeneeeeeeeeee 


time you find a bigger number, repeat this process. 
beeen eee ee eee eee eee eee 


number, the one following 
that one and so on, you would 
change your assumption each 





Pepa Sma p sma iney Dar Peete ey Serene neusensmenssen “ion 
' ' 
aa nace i Before searching for the second biggest i 
: number on the original list, you must t 
se sy a 
H 1 i erase the first biggest one. The second time you H 
! When you reach the bottom of the list H « search the list, you will find the second biggest H 
ithe first time, you will have the first H H ; ae ' 
Hlargest number. This number should be i H faa dene piney ] on the new list in H 
‘copied onto a new list. It will be the firS tt ely! P ’ : 
inumber on this new list. Set ences eae te ee een ea 
eeooee sassenee 20m saeeeeeesome seseseeeeeed 


To arrange this sorting procedure so that it could be 
programmed in Fortran, you could represent the list as 


a subscripted variable. Each subscript would then 


possesses 
seeseeeeeeeee es 


represent a different number on the list. 
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mpieedsetenedecudenekaeseunessousencaccmaacs scccueesten wae waeenq 
' 
Wg? ere ote ees en eae : Notice that there are alternate paths through loop: i 
! The search and compare ! H . 1 
i process may be H i 1. Ps a ms oe oe oo control drops H 
1 : : te) re) Al ? wt 
1 illustrated in a flow 1 ' ~— ye ne Hone ore bie eek H 
1 diagram as follows: ' 1 2. If xX; ws bigger than 'BIGX ; the value of "x; H 
bomaeowuien aesemee ncenswanes 1 replaces ''BIGX" and "k"' is set equal to "'i.'' H 
Leciadcceatnanerccen Setendddpendcdeunseneanecws netacapsaecneue <4 
eeeeeeeeee nonsense seen k nesennssenesensenseseesesneweaene = 













foe "THAN ES, | SET a 
BIGX BIGX = x; K>=i "BIGX" is the currently assumed biggest 
No number on the list. 
"k' is its position on the list. When there is 
no change in this assumption, the no 


path is followed. When the assumption is changed, 
the yes path is followed. 


beseeeeenseeees sees eee See ee eee eee eee === 


r 
' 
' 
' 
1 
' 
1 
1 
1 
1 
1 
1 
' 
1 
' 
1 
1 
1 
1 
1 
1 
1 
iJ 
1 
1 
1 
1 
1 
' 
1 
a 
1 
i 
1 
' 
1 
' 
1 
1 
1 
1 
1 
J 
1 
' 
' 
t 
1 
1 
1 
1 
1 
iy 
1 


‘oc aaa gaa "as ged aaa Sg aed gad Agena Mga Myer Spa yea yd gece ta 


aon ee ee eee ee ee ee 2 ee 


piv awaeebeses nanenesssnennecees peensenenseenneee oneeseene eo 1 
H The Fortran program to carry out this process would 5 
1 consist of two loops: An inner loop to find each biggest 1 

S 0 pamennenenneneneneneenenen pcendusdeeneteeen ‘i 

i number and its position on the list, and an outer H H The Flow Diagram on the following page H 

1 loop to move that number to the next position on 7 ty Pare ‘ . H 

i a new list and to erase it from the original list. —pi Pea DOBIGE Srvenyie eoreng t 

bese seeenenese sees Se sees eee 1 r r] 

i Inside the boxes are Fortran-like i 

i statements and expressions. H 

a 


Box (3) initializes 
BIGX at zero 

prior to beginning 
each search. 


The inner loop, the one that does the 
search and compare process, is 
composed of boxes 


(3) (4) (5) (6) (7) (8) and (9). 


Pe sssssseAs see 


ha 


Box (4) initializes 
the index counter. 
H ' 
i Box (5) compares the value 
H 1 of BIGX and X(I). 

! The first time through 

' this loop, BIGX will equal 


pecssssssssq 
beeeeeeeeond 


be bigger, and the minus 
exit will be taken. 


bees es eee ee omom el 
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Box (6) sets BIGX equal to the value of 

X(I). 

The first time through this loop and this 
branch, BIGX will be set equal to X(1). 


The second time through the loop, BIGX will 
be compared with X(2) in box (5). 


If X(2) is smaller than BIGX, control will pass 
to box (8), bypassing boxes (6) and (7). 


If X(2) happens to be bigger than BIGX, control 
will branch to boxes (6) and (7). 


L ncn geeseennnneasesnes 





The first 


Box (7) sets K equal to I, the subscript 
of an X(I) that is larger than a previous 


branch, K will be set equal to 1. 


Seven: Control Statements 


J 


BIGX. 
time through this loop and 


r Box (8) tests the current value of the H 
T Box (9) Pee sh ee ey tie H subscript to determine whether the loop- i 
H acacwienie ie i ! ing process has been completed. 1 

1 
t value of i¢ H The first time through this loop, I : 
H I by one. H H will be less than N, so the plus exit H 
1! ' 1 ' 
is _ ec, Be wecuu 


preseensenesesenseeeseseeees 
This process will be 
repeated until all N 
numbers on the list 
have been compared. 


pofessesess 
sssecesaned 





ee ee ee ee ee ee ee ee | 


Box (2) initializes the index 








t 
| counter for the outer loop. H H One search through the list will H 
1 1 q : 1 
H When J equals one, the inner ! i yield one biggest X. H 
H loop will be searching for the ! H And since there are N values of X, ' 
' first biggest X. When the H tthe entire search will have to be H 
H inner loop has completed a H H repeated N times. H 
search, control passes from} becoatee peteeee aad bea ead 
! box (8) to box (10). H an 
H H 
tesaneen eee Lee LL precesieon surchaaaaiieaeae 
t !The repetition of the H 

pesse= ose eeeeeeseeee seems eeseedeseeseneess . ; entire searching process} 

H Box (10) sets Y(J) equal to BIGX. The ! 1 is controlled by the H 

| first time control reaches box (10), Y(1) ! 1 outer loop. H 

' H ee eee see eee eee 

H will be set equal to the first biggest H - 

! X found in the search in the inner 7 

1 loop. H peen sen eb eee sees eseeeeesee see eeees eee eeeeseseeeeeenseeg 

' ' 

EeRe See Ese dna eas keeensensnaseaeeseseseneees Box (11) sets X(K) equal to zero. The first time 

control reaches box (11), this will have the 
sasecsenssescasaeen psn eweebonsniemnasewaniy 


Box (12) tests the current value of J effect of erasing the first biggest X from the 


original list. 
(If this step is omitted, the first 


biggest X will always turn out 
to be the biggest X. ) 


e 
LJ 

1 

H 

' to determine whether the outer loop is 
| finished. 
1 
LJ 
i 
a 


The first time through the outer loop, 
J will be smaller than N and the plus 
exit will be taken. 


beencee err re 
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1 
1 
1 
1 
1 
1 
' 
' 
' 
‘ 
' 
‘ 
Ly 
a 
J 
1 
1 
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poecesssssasseses seeeeeeseseeeee 


"Box (14) initializes another 
t loop which is designed 


Box (13) increments the value of J by one. to transfer the sorted list in 


The second time through the loop, BIGX and 


iThe first time control reaches! 
' box (14), L will be set equal { i 
ito one. H 


beneeeeeeeseeeeeeeeee sesecesnead 


Box (15) sets 
X(L) equal to 
Y(L). 


i] 

' 

! 

' 

‘ 

i) 

; 

The first H 
time control i 
' 

' 

a 

' 

' 

' 

1 

1 

1 

J 


5 
1 
' 
' 
' 
1 
' 
' 
1 
' 
the I index counter must be reinitialized. H 
If BIGX is not reinitialized, it will equal H 

' 

the first biggest X, and the second biggest H 
X will not be found. If I is not reinitialized, ' 

: 

' 

' 

' 

1 

J 


the search will not begin with the first X. 


reaches this 
box, X(1) will 


be set equal 





The outer loop will reinitialize and execute the inner loop 
until N biggest X's have been transfered to Y. When the 


pete sseseseseesessesee gy 


outer loop is satisfied, Y will contain all the original 
numbers sorted in descending order. 


ox (16) tests the index counter to 
etermine whether this loop is finished. 


ie] 


In box (12), J will equal N, causing control to pass to box (14). 


2 


€ 


esses seeeessy 


The first time control reaches this 
box, L will be less than N so the 
plus exit will be taken. 





(ca eed aad cy ed Tiga ened ced el gana Aged geal pad yal yea vel 
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Een ee ee ee en Pe 


prtcess=ss59 


wu 
back into X. 


Box (17) increments 


the value of L by one. 


The second time through this loop, L 
is equal to two. X(2) is set equal to Y(2). 


This transfer process is continued 
ntil all N numbers in Y have been moved: 


beneeneeeee 


seeeeceend 


a. ae 


pecnedenss bncanse See ee 
' 

| Box (18) returns 

i control to the 

: : 

H Main Program. 

oe ee =seeseeeee 


H When all N values have been transferred, i 


H 
1 L will equal N, and control will follow 
the minus-zero exit from box (16), and 


' 
' 
1 
t 
' 
' 
' 
the work of the routine is completed. H 
' 
a 


! Box (1) identifies the 
routine as 


SUBRGUTINE SQRT 


Pees ssssesssees seeeeeeseee 


beeeeeeeeee ds 


@ 

















Using the Flow 
Diagram on page 134 as a 
model, write a 
SORT subroutine 
that will sort 
the one-dimensional 


array "X" in 


order. 


that N and X are in 
Common Storage, 
don't forget to 
dimension both 
X and Y. 


descending 


Remember 


1: 
1 
1 
1 
1 
1 
1 
1 
1 
L 


Sorting Task 
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. 
1 
! 
1 
' 
1 
' 
' 
' 
1 
iy 
' 
' 
1 
1 
1 
‘ 
1 
' 
1 
1 
' 
' 
' 
' 
1 
‘ 
1 
1 
t 


There are three loops inthe Flow Diagram. 
You may use DO statements to set up these 
loops, or you may use IF statements. DO-loops, 
however, are generally more efficient, and are, 


therefore, the recommended technique. 


Remember that you must reserve 
1,000 storage locations for 


X in Common Storage. Remember 


that N is in Common Storage. 


Se 


Pi eli ia Pe ee ee ee eee ee, ee ee. ee ee ee 


Eee eee ee eee ee ee ee 


Is the first statement 
in your subroutine 


SUBRQUTINE SQGRT 





potsccssseng 
beeeeneneeed 


Pt tte 











one ee ee eee eee ee ee eens enenseneenneesney rrr 


Main Program. 


beseeeese pees sees esse eee 


r 
i The subroutine -defining i t Does your subroutine have a H 
' statement must be first. ' H DIMENSION i 
H Otherwise the Fortran Compiler ' 1 statement that looks like this? !} 
1 : : : Bt oe Oe ek eee, 1 
will compile this program as a 1 > DIMENSIGN X(1000), ¥(1000) ! 
1 
1 
! 


Geese eee eee eee e see eee eee 









! 
penne nese seen ene eeenenesenenseeeenseeeseesg ! 
H : : HU ! Poe rrr 
! Any number of subscripted variables ¢ sassses J ID : H 
7 ; : ; : 1 oes your subroutine have a 1 
+. May: be pimensloned ina DIMENSION. 4 1 COMMON statement that looks ! 
1s statement. 1 : : H 
' 8 Meal a ree tae asec eipeetid »: like this ? H 
H Both are specified at 1000, because ! ' H 
i  X was dimensioned at 1000, in INPUT. ! Mc ceeeeeee COMMON ON, Xd 
1 
a 


Geese ee see 
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iN and X must appear in the COMMON statement in the same 
: order that they did in subroutine INPUT. You may have put 
‘ 

4 Y in COMMON like this CQMMGN N, X, Y 


and no troubles would ensue. Notice, however, that since no, 
t other subroutine will be using Y, it need not be inCOMMON.: 


onan eeneeeeeeseeeeeeeeees "4 leita Syst ee Stee se J 


Does your subroutine 


tis the very last statement 4 
fin your subroutine an END! 


' 

' The RETURN statement is absolutely 
>; essential to return control to the Main 
! Program. 





' 

' Jt should be the last statement to be 
i executed in the subroutine. 
& 





The END statement is also 
absolutely essential. It marks 
the end of the statements to be 
included in your subroutine. 


seeeneqeensd 





: 


seseeeeeeed 





Oe OO A eee 


eee ee eee ee ee se ee ee 

















a 

' 

‘Did you program the inner Orne 

tloop with a DO statement? | 

' 
:Did you program the inner! 
tloop in an H 

----i H 

H IF-loop? H 
beseeeeseeseeseseeseseeeeee 





' {The DO Statement does the work of boxes (4) (8) and (9) 7 
' You should not have duplicate statements to do this! You i 
i should not have statements i 
' I=1 H 
' IF (N = I) ’ ’ H 
uctesigemincais Sesancnaee wea ee Ny, oto eerie i 





The IF-loop will work here, but is less efficient 
than a DO-loop. The pattern of loop control 
should look something like this: 


I=1 
5 

IF (N - I) 10, 10, 20 
20 I=I+1 

GOTO 5 
10 aot 
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ERSTE IT 
1 1 
'Did you program the outert¢ 
tloop as a t 
1 DO-loop? 
Lenkbedicuaeesccanens ee | 


The DO statement for the outer loop replaces boxes 
(2) (12) and (13). 

Therefore, you should not have statements 

corresponding to them. You should not have these 

statements in addition to the DO: 


seuss eee e eee eee 
seeeeseeeeeeeseeeeeeee 


J=1 
IF (N-J) _» _» _ 
J=J+i1 

bee eeeee eee see eee eee aod 
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(rte nnn ene - === 


iisetanvasde >< e el eucdawensebees 
' 1 
' 1 
: Did you program the outer loop i 
« with an ' 
4 IF statement? ' 
' 1 

F] 


Fert Fe Bee 


eon ee eee ne ee ee ne ee ee 


The pattern of control for the IF-loop should look 
something like this: 





1 ; 
1 1 
' 1 
t 1 
H =1 : 
: To | 
H ean loop) H 
! 

' ' 
H IF (N-J) 66, 66, 55 t 
I 55 J=J+1 1 
H GG TQ 177 H 
Did you program the ' 66 ; ' 
bessean a See See eT a 


transfer back loop as a 
DO-loop? 


prtssssssss9 
seeseeseend 
































7 

t 
! Did you program the transfer ! 1s aaa ctta mdbia te canada cucu duewetanene saan laeawadeaannanie : 
H back loop as an i ! The DO statement for this loop replaces boxes ' 
H 2 t i (14) (16) and (17) I 
H aT Pestana: H H Therefore, you should not have statements corresponding i 
treaties aborts Nace caetnere ' to them. You should not have rea ' 
1 1 
PINS EY op oi. 
i L=L+1 ! 
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—- 


~~ 


The pattern of control for this IF-loop should 
look something like this: 


L=1 
43 ow 8 
IF (N-L) 27, 27, 99 
99 L=L+1 


27 






1if necessary, make a clean 
iand correct copy of your 
program. 


Then go on to 
the next section. 


Eight: Output Statements 


beseeseeeeeeeeseesed 


ee a nt Roe Od ay ed Rae el Aa OM ol Mad Mond Med Mend Misa 


See eee eee se se 2 













Part Eight: OUTPUT STATEMENTS 





Relation to Input @ Output Field Specifications @ 
Carriage Control @ Relations between Fields, 
Specifications, and the Variable List @ Exercises @ 
Output Task @ Diagnosis @ Conclusion 


ST TT HUAUAUAUCUUUUUUUUOUUUUCUCCUUSURUOUSUOHOCQUONSOGOOUOCOOUCOOUEOUOOOOEDES 
Planning output is the Input FORMAT statements 
describe how numbers are 
already arranged on data 
cards. 
DUSUOUAUAUCUOUACUGEUOEOUQUDUOOHUCUAUROUEREOCOOGEOUCOOEUREOEOOUREOOL 


reverse 


of planning input. 
SUADDEUOTAGUCHUNCRUROQOR CHOU GU OUOUEUCEOUCRTEOTOE TOONS 


SUT 





ul 


Output FORMAT statements 
specify how numbers are to be 
arranged on a printed page 
of output. 





PRINT statements specify 
which numbers, already in 
storage, shall be printed out. 


Ph 
READ = 
statements specify = 
where the numbers = 

F 





shall be stored. 


A 
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and 














ae ee ew) ee 


In the output process there 
are two statements involved: 


A FORMAT statement 


a PRINT statement 


Each printed 
line is 


comprised of 


"print positions. "' 


ead 


- 
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r| 


each printed line. 


PUTT ELLLLLLLLLLS 


TTT CUCL CULL CUL COO bk 


Output FORMAT specifications must 
account for every print position 


beginning at the left. Extra 
positions at the right may be 
omitted. 


TTT EEE ULE CEEOL LULL 


The first step in planning 
output is designing the layout of 


mT 





EDEaeReaneeee eee 











There are four kinds of fields 
that may be specified in an 
output FORMAT statement: 

I - for Fixed Point 

F - for Floating Point 

X - for Blanks 

H - for Hollerith characters 
















PUTT 
nye and "Ree are 
used to print the 
values of the 
variables in the 


Variable List 
in the PRINT 


statement. 
PUTT 


ULL LLCO LCUUEE ULLAL Lb 
"X" and "H"' specifications 


ne are used for spacing and 
: labeling. 


If the variables are Fixed Point 
mode, they should be printed 
with the I 


FORMAT statement specification. 
STITT EEO ELE L ULE PEOPLE LOL UL UE LLL 


SUTUEU UTE EET E TEE EE EEE 
STOTT UEUECTCU TEL OU TORU CCU ECCT EES 








The general form for the 
"I" specification is 


ik 


Iw 


where "'w'' is the number of 
print positions in the 
field (i.e. , the width), 


PUTT 
CATTLE 





Pessress Pasa Sens Seana seas ey 
i If the value of a variable 
twere 87 and if it were printed 
'with an 14 format, it would 
tlook like this: 


If the variable is Floating Point, its 
value should be printed with an 


F 


0087 FORMAT statement specification. 


(The blanks "OO" would not 
be printed. ) 


eee aeeoed TTPO ELE EOE Ld 
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ml 


PUTT ied 
Us 


possessess 


i 


If the value of a variable were 95. 273842 and 
if it were printed with an F5.2 format specification, 
it would look like this: 


Fr 












The general form of the "F" specification is 












Fw.d 


of the field. 


value. 


95.27 


Note that the fractional part is rounded 
to two places, which is the number 

of places (digits) specified in the F5.2 
format specification. 


'w't ig the number of print positions 


' d'' is the number of digits to be 
printed in the fractional part of the 
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The general form of the X 
FORMAT specification is 


nX 









where "n" is the number 
of the print positions to 
be left blank. 






The general form of the H FORMAT 
specification is 












nHc,cC, C3... Cy 


"n't ig the number of characters to be printed. 





C, C, C3... Cn are the actual characters. 


They may be alphabetic, numeric, or special 
characters. 


AIIM Ss 
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Eee ep eee ee se 2 





Note: 


My 
n 


"H 
> 


a 


PUTT 





‘ nust be precise because the next 
n characters 
in the FORMAT statement, 
following the 
" will be printed. 


pesssessesenenng 


The four kinds of output specifi- 
cations (I, F, X, and H), used individually 


or in combination, specify the 
layout of one line of printing. 





SUE 


TULL 


seme ses ees eee eee eee eee eee seco ees ses eesenseseseeseeeny 


For example, if 
23HTHISOISOTHEOFIRSTOPHASE 


were specified in a FORMAT statement, the 
printed output would look like this: 


THIS IS THE FIRST PHASE 


& 


"23H" indicates that there will be 23 
Hollerith characters in this field of 


output, and the dotted zeros 
indicate the character positions 
that will be left blank. 


CT 


ET 
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L 


The position of a line on a 
page is specified by a "carriage 


control" character. This 
character is and must be the first 









character specified by the 
FORMAT statement. 


es 


SSUUDUDDEDELDEUUEDUUDUATODEUEOEEEUEURDOOUEOED 







Carriage control characters are specified as 
Hollerith fields of one character: 


1HO 










specifies a blank as the first character in the 
line and instructs the printer to space down 
one line. 


1HO specifies a zero as the first character and 


instructs the printer to space down two lines 


1H1 specifies a one as the first character and 


instructs the printer to skip to a new page 


ool het ceed sad ee an Ald lve 


The format 
specification for 
the first print 
position is the 
"carriage control" 
character. 
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The carriage control character 
is not printed. 

It is an instruction to the printer 

to space down before printing. 







The following carriage control characters are 
interpreted by the printer as follows: 








© (blank) space down one line before printing 


0 (zero) space down two lines before printing 





1 (one) — skip to new page before printing 


gael ised Ty gerd Pyne ye Ms Mt 








i H 
i Assuming that this output is to be started H 
H on a new page, the FORMAT statement ' 
i describing it would be: § 

1 
1 ! 
i FQRMAT (1H1, 6X, 23HTHISOISOTHEOFIRSTOPHASE, 5X, 14, 5X, F5.2)1 
Lnsesccecducecusccns Seen e ek ee iw nen eee een seen eenenedndeon nse venedsicebenes ‘ond 





Carriage Control 
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The first Hollerith field, "1H1," 
is carriage control. It causes 
the printer to skip to a new page 
before printing. 


The second Hollerith field is 
for the titling sentence, "THIS 
IS THE FIRST PHASE." 
ANAANDULENAEAOUEOENOUAUOOUOUNOUSUUHOUOUNOUAOOGOUOOEEQESOOUNOUUOUOOUUGTE AUSUQUNUUQUNNOOOUORONGULUOUOUQOQUHQUUQUDOOURUQOQUUUOGEUNOUHEOUOUNOUEUQGURROOOQUOQOEOOOEL 


The ''X" fields provide spacing 
between the other fields. 

The "I" field is for the number 
87, and the "'F" field is for the 

number 95. 38. 


| 
5 


Only the "I" and the "F"' fields 
require values of variables. These 
variables must be in the Variable List 


of the PRINT statement that uses 


this FORMAT statement. 





If K equals 87, and X equals 95. 378424, the correct PRINT statement 
would be: 


55 FORMAT (1H1, 6X, 23HTHIS IS THE FIRST PHASE, 5X, I4, 5X, F5. 2) 


1 PRINT 55, K, X 
Likoknbesnekaitace seen eG OO seesens ses ee ee sees eee eee 


ot a yt aad yea Mya Myo Med ed Mine yd Me at at ae 


eee ee ee ee ee ee ee 
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SHUUUTEUEUUUOTEREUUOEEEUOOUOOUEOEOOEUOCEROOUOGEREEESOOUEOOOEOU GOOCH GUUOOUUOEORUOUOUEEO OOOO 


4 
> 
co) 
4°] 
z 
w 
lal 
= 
© 
B 
© 
+ 
8 
=I 
a 
© 
a 
& 
© 


values of the variables on the Lis 
to be printed according to the 14 
and F5.2 FORMAT specifications 








SOUEUTERUUAONEUOEAUETOOLEUCSEEEROEOTE TUUEULEAGLOQGOUCURUNOO OEE UAGSSGEELOUOR COR DEODUERODOUEODEO SOOT 
= Just as with input FORMAT statements, 
output FORMAT specifications will 


be re-used whenever there are more 


1 





variables on the List than there are 


specifications inthe FORMAT = statement. 
SUUUELNERUUGEROGROEOGUORGURULORAGQUQGCHGQHGCEEOUEDEGHREOREGHEROGOGROROEOGHERGGUGURGROGOORGTOROGEONOEE 


PUTT 


tH 















If several fields have 
identical formats, the 
specification for one of them 
may be multiplied: 


F8.3, F8.3, F8.3, F8.3, 
4F8. 3 





may be written 





SUUEUOUEEEOUOGRUCOURCUROOROCEOGEOGDOGUECUROOUGTOGUEOODOODOGUOGEOOTOOGHOGNOGUOUDODURODNOUNOOUHOORNROUEORNGGEO DS 


The PRINT statement continues to print values 
for every variable on its List. 


It repeats the FORMAT as often 

as necessary, and terminates after 
printing the last value on the List. It 

terminates even though it may be in the 
middle of the format specifications. 

7 HUGUOUEDONGAUOOEUOUUNCOOOOCHUOUCESOOOOQUOUAUOOUCEOOOOUUOUCHOOOUEROOOUSUNOUEUUQEOUCOOEUQOUOCUOOUGUOONUOQUNUITS 


DUDDEDURUADEOOOODEOOOOOUSDSOOOOEOEDOOUUOOOOTS: 


PTT 


ET] 












Thus, 45 FQ@RMAT (1HO, 5F10. 4) 
PRINT 45, (X(I), I= 1, 50) 


would print five values of X on each line, 
There would be ten such lines, double 
spaced. 





Relations between Fields, Specifications, and the Variable List 





156 Eight: Output Statements 





Ceaser mene 


Write a FORMAT 
statement with single spacing, 
a field of eight blanks, anda 


'field of ten print positions for 
'a Floating Point value retain- 
ting four digits in the 

ifractional part. Number it 55. 


bees eee ee eee eee = ——- 
heeee eee eee 


PTTTTTTLTLL LLL. eee ee 
ANSWER ON P. 163 ANSWER ON P. 16 


r | 


ee ee eee amen es cece eee ene 
Now write a Print statement 
that will print the value of the 
variable, ''TEST,' using 
FORMAT statement 55. 


Obeaanaaasaae 


© 


1 

1 How many values of 
! "Z" will be printed 
H 
1 
! 


Write another PRINT 
statement that also uses 
FORMAT statement 
number 55, but this time 
to print out all 25 values 
of La ‘Al 


How many lines will be 
needed to print all 25 
values of "Z''? 


on each line? 


beaeeeesene 


heen eee eee eee eee so 


ANSWER ON P. 166 


beseeeeeeend 


ANSWER ON P. 163 cia ep in 


seeeeeeeneeee 
ANSWER ON P. 166 





eat sed aad aed yet at ad a 


Eee ne ee eee ee ee 2 ee 


i REI, 52a Si 5 


Write a FORMAT statement and a PRINT statement 
for 80 values of ''Y'' according to the following 
format specifications: 


1. Eight values per line. 


2. Each field nine print positions wide, OD Shae ae ei hae, occa eatee 


with four digits in the fractional part. 


3. Double space the lines. 


Write a FORMAT and PRINT statement 
that will do nothing more than cause 
the printer to skip to a new page. 


ere 
Leese eee eee eee eee eee 


ANSWER ON P. 170 


zi 
ul 
a 

(28) 4 


' 
Write your own FORMAT and PRINT! 
statement according to your own H 
specifications. Then, on a piece of i 
scratch paper, draw your conception of ! 
how the printed output will look. ' 

' 
J 
4 


passes seeeseeee 


ANSWER ON P. 17 
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Write a subroutine called OUTPUT. Design it so 
that it will print all the values of X that were sorted 
in subroutine SORT. Plan the printed page so that 
it looks something like this: 


TABLES OF VALUES SORTED IN DESCENDING ORDER 





XX. XX 

XX. XX 

XX, XX 

Prt atatatatatatatatata se. 6k 
REMINDER H 

1 XX, XX 
In some of the diagnoses, {1 

references will be made poe! XX. XX 
about other subroutines. 1 


These subroutines are the 
ones you wrote as 
previous TASKS. 


bennenane 


(The "xx. xx" notation above is used to indicate the 
' positioning of the numbers. ) 


a i Pe Fer ee er Gk Ce i eh ae 


BBeeaeuaeaeaeaaeeeae 2 & 





Is the first statement in your 
subroutine 


SUBRQUTINE GUTPUT 





The subroutine-defining 
statement must be first. 


Bee eer 
di 








1 
1 
1 
' 
1 
, 
Otherwise, the Fortran ¢ Gee ene ' Does your subroutine have a H 
compiler will compile H t DIMENSION statement that looks t 
this program as a H ee Sr ee y! like this? i 
Main Erogran: i i DIMENSIQN X(1000) : 
Wopsevdccssbonasocceseadaswencca econ eeeessessessssssesssssesssesesd 
{ 
1 
i] 
t 
r- seasen seeeeeeeeee seaseeeeee se ee eeeee senses 4 H 
H Subscripted variables must be H A 
1 dimensioned in a DIMENSION i - 
' statement. X is specified at iq cp re 
H 1000, because it was dimensioned | 
' that way in subroutine INPUT. i 
' ' 
t J 


sancees teeta tte nnn 


t 
I 
' 
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Does your subroutine have a 
COMMON statement that looks 


a 


see eeeee ee 


basen 


r 
. ia? 1 
| like this ? t Does your subroutine havea 
J 
Licdadiats een Nic opacsentatas : | RETURN statement? H 
1 H i 
2--------------------------------- ausuadacass cccesannesaeewemed 





od goudaakuawc te oneuassacweakeie = 
N and X must appear inthe 1 
COMMON statement in the same ! 
order that they appeared in i 
H 

d 


The RETURN statement is absolutely 
essential to return control to the 
Main Program. It should be the last 
statement to be executed in the 
subroutine. 


subroutines INPUT and SORT. 


seeeeeeeeey 


r 
1 
1 
1 
' 
' 
1 
! 
1 
' 
1 
' 
iy 
1 
1 
' 
t 
1 
1 
1 
' 
1 
1 
! 
1 
1 
' 
1 
1 
1 
1 
' 
1 
1 
1 


eee cee eeseneee sees sees eese ese seed 





pee sen ces e wees ses ee cesses essessessesesssessy Pee | 





J 1 1 
i It is important that you remember that 4 art i 
' the END statement is also absolutely 3 ' Is the very last statement in your ! 
H ‘ H ‘ subroutine an END statement? 7 
1 essential. It marks the end of the 1 H 1 
: statements to be included in your ' i ' 
' subroutine. H t H 
beeeeeseeees eee esse see ees eee sesesseseeend eee eee see eee eee eee 


eet el ee eee ee ee, ee ee a el ee 


anes eee ee 2 





You have been asked to write four subprograms: 





* A Main Program 
% Subroutine INPUT 
¥# Subroutine SORT 
*¥# Subroutine OUTPUT 


If you do have your Job run, it will 
probably not be successful the first 

try. You will probably get back 
diagnostic results from the compiler. 


Laon 


en Sa 


These subprograms could be organized into a Job 
by keypunching each statement on tabulating cards, 
adding input data in a format compatible with your 


Every diagnostic is caused by a violation 
of arule. Every rule is necessary 
either because of the limitations of the 
computer and the compiler or because 
it prohibits ambiguity in the program. 
In one case you must serve it, andin 
the other case it serves you. 


INPUT Subroutine, and then adding the System 
Control Cards required by the computing installation 
where it is to be compiled and executed. 


rere eee esesesseeng 
Reese eee eee eee 


see eee eee eee eeseee ea eee sees seen seseeeeeeel 
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reference manual 








re) ee) 


epee ee ee ee ee 
Co 


Main Program 









43 Program Structure 






A subprogram is a Main 47 


Program, if the first state- 































ment in it is not a SUBROUTINE 
and only one Main Program in 
44 SUBROUTINE A Subroutine is a subprogram a Job. 
of the program section of a job 
deck. The first statement must 
define it as a Subroutine. The Jf ‘| Subprogram A subprogram is any program 
general form is: 4 segment of a Job. A Subroutine 
is a subprogram. A Main 
Program is a subprogram. 
Interprogram Flow of Control 48 
"Name" may be any combination} 
characters. STATEMENTS 
CALL The CALL statement causes 47 
45 END Every subprogram of a job deck control to be transferred to the 
must have an END statement as first executable statement in 
the last physical statement in the subroutine named in the 
the subprogram. The general CALL statement. The general 
form is: form is: 
179 Reference Manual 
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Statements (cont.) 
"Name" may be the name of the Monitor System. One way 
any subroutine in the Job, or to do this is with the following 
any System Sabroutine on the statement: 
Library Tape. CALL state- 
ments may appear in Main 
Programs and in Subroutines. CALL EXIT 48 
46 RETURN The RETURN statement in a 
Subroutine causes control to be 
transferred back to the first "EXIT" is a System Subroutine 
executable statement following on the Library Tape. The 
the CALL statement which last statement executed in a 
caused control to be transfer- Subroutine must be either a 
red to the subroutine. The CALL EXIT statement or a 
general form is : RETURN statement. 
Constants 58, 63 
RETURN 
Floating Point A Floating Point Constant is 65 
27 First Statement The first statement executed in Constants any number of decimal digits 


with decimal point. Only the 
first eight significant digits 
are used in computations, and 
the absolute value should lie 
between 10*38 and 10-78 

(but may vary with different 
computers). 


Executed a job is the first executable 
statement in the Main Program. 


Last Statement The last statement executed in 
Executed a Job must return control to 


he Ne ae ns a Rg he A et at Ae 
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‘oncepts (cont.) 


Fixed Point 
Constants 


Floating Point 
Variables 


Fixed Point 
Variables 


ene eke eee ee 


A Fixed Point Constant is one 
to five decimal digits with no 
decimal point. The absolute 
value must be less than 2!” 
(but may vary with different 
computers). 


CONCEPTS 


A Floating Point variable is 
any combination of from one 

to six alphabetic or numeric 
characters and no special 
characters. The first character 
of the Floating Point Variable 
must be any of the following 
letters: 


ABCDEFGH OPQRSTUVWXYZ 


A Fixed Point variable is any 
combination of from one to 
six alphabetic or numeric 
characters and no special 
































































































































































































































































































































































































































































































































































































































Subscripted 
Variables 


characters. The first 
character must be one of 
the following letters: 


IJKLMN 


Variables of either mode may 66 
be subscripted. The general 

form of a single subscripted 

variable is: 


v(i) 


"v'' may be any legal Floating 
Point or Fixed Point variable; 
"i" may be any legal Fixed 
Point variable or constant. 
"i" should not exceed the total 
number of storage locations 
available. For double and 
triple suscripted variables, 
see a Fortran Reference 
Manual. 
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Input 


STATEMENTS i 


82 READ The READ statement causes 
values to be transmitted 



















a FORMAT statement, and to 
be stored as the values of 
variables. The general form is: 


READ n,v1,V2,V3, ..- 


"n' is the statement number 

of the FORMAT statement that 
describes the fields on the data 
card(s) being read. 





"V1,V2,V3, .. .'' are the 
names ofthe variables where 
the values in the data fields 
are to be stored. These 
variables may be Fixed or 


from data cards according to FORMAT 
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Floating Point mode, and they 
may be subscripted or non- 

subscripted. Subscripts may 
be under DO-loop Control or 
List Control. 


The input FORMAT statement 77 
contains descriptions of the 

data fields on the data cards to 

be read by a READ statement. 

The general form is: 


n FGRMAT (d,,d2,d3,.. .) 





'n" is the statement number 
of the FORMAT statement. 


"(d,,d2,d3, oe e y" are the 

I Field or F Field descriptions 
that describe the data fields 
from left to right on the data 
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Statements (cont.) 


List Control 





card to be read by a READ 
statement. Columns to the 
right of the data fields 
described in the FORMAT 
statement are ignored. The 
set of descriptions in a 
FORMAT statement will be 
repeated until values have been 
read for every variable on the 
Variable List in the Read 
statement. Every time the 
set is repeated, it applies to 
the next data card. 


CONCEPTS 


The sequence of values of the 
subscript of a subscripted 
variable may be specified in 
the Variable List of a READ 
statement by using List Control. 
The general form is: 


(v(i), i=m,,m,,m;) 





"v'"' may be any legal variable. 
"i" may be any legal Fixed 
Point variable. 






































Data Fields 


"m,"' may be any legal Fixed 
Point unsigned constant or 
variable. It is the initial value 
of "i. '' It must be greater than 
zero, but equal to or smaller 
than 'm)." 


"m,"' may be any legal Fixed 
Point unsigned constant or 
variable. It is the terminal 
value of "i." It must be 
greater than zero, and equal 
to or larger than "'m,."' 


"m3" may be any legal Fixed 
Point unsigned constant or 
variable. It is the amount by 
which "i'' shall be incremented, 
It must be greater than zero. 
If "m;'' is not specified, it is 
understood to be equal to one. 


A data field (for input) is a 75 
group of one or more columns 

on a punched card. The width 

of the data field is the number 

of columns in it. 
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Concepts (cont.) 

78 I Fields If the number in an input data 'n'" is the number of fields 
field (on a card) is an integer described. If "n" is not 
number, the value should be specified, it is understood to 
transmitted under the I be one. "“w"' is the width of 
conversion symbol. The the field, and'"'.d" is the 
general form of the I number of digits in the 
FORMAT description is: fractional part. 

nlw 
Repeating Input If the Variable List contains 86 

FORMAT more variables than there are 
"n't is the number of fields Descriptions input data field descriptions in 
described. If "n' is not the FORMAT statement, the 
specified, it is understood to FORMAT statement will be 
be one. ''w"' is the width of repeated from its beginning 
the field. and will automatically apply 

to the next data card. 

77 F Fields If the number in an input data 67.70 
field (on a card) has a decimal ’ 
point in it, the value should 
be transmitted under the F 
conversion symbol. The STATEMENTS 
pene tee sere ot eae DIMENSION The general form of a 67 





FORMAT specification is: 


i a a oe) Fe) ee) ee) a a et 


DIMENSION statement is: 


DIMENSIQN v, (i,;), v,(iz), . - + 
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Statements (cont.) 


COMMON 


"vi'"' and '"v2'"', . . are the 
names of the variables. "i," 
and "i,"" are Fixed Point 
constants equal to the maximum 
number of locations that will 
ever be needed by the variable. 
Any number of variables may 
be listed in one DIMENSION 
statement. 


The general form of a 
COMMON statement is: 


CQ@MM@QN v,,v2,... 





"v1, V>...'' are the names 

of legal variables. Ifa 
variable is not subscripted, 
and does not appear in a 
DIMENSION statement, one 
common storage location will 
be allocated to it. If it is 
listed in a DIMENSION state- 
ment, it will be allocated as 
many locations as specified for 
it in the DIMENSION statement. 






























































































































































































































































































































































Nonsubscripted 
Variables 


Subscripted 
Variables 


Constants 


CONCEPTS 


Nonsubscripted variables are 
automatically assigned one 
storage location within the 
area used by the program in 
which the variable appears. 
If the variable is listed in a 
COMMON statement, the 
location is in Common Storage, 
and not in the program. 


Subscripted variables are 66 
assigned as many locations 
within the area used by the 
program as specified in the 
DIMENSION statement in 
which the variable is listed. 
All subscripted variables 
must be listed ina DIMENSION 
statement. If the variable is 
also listed in a COMMON 
statement, the locations 
assigned will be in Common 
Storage, and not in the 
program. 


All constants are allocated 63 
one storage location within 

the area used by the program 

in which the constant appears. 


Reference Manual 





Control 


STATEMENTS 


The normal flow of control is 
altered by executionof a GO TO 
Statement. The general form 
to a GO TO statement is: 


GG TOn 


"n" is the statement number 
of any numbered, executable 
statement in the program. 


The normal flow of control is 
altered by the execution of an 
IF statement. The general 
form of an IF statement is: 


IF (e) n,,n3,n, 


ee 
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"e" is any legal expression, 
and "n,,n,,n;,"' are state- 
ment numbers of any numbered, 
executable statements in the 
program. 


If the computed value of "'e" is 
negative, control branches to 
statement number "n,."' 


If the computed value of "'e" is 
zero, control branches to "'n,."' 


If the computed value of "'e"” is 
positive, control branches to 
nh 3 P ” 


"n,,n,, and n,"' need not all be 
different statement numbers. 


A sequence of statements may 120 
be executed repeatedly by 

defining the sequence as a DO- 

loop. The general form of a 

DO statement is: 
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tatements (cont.) 


'n' is the statement number of 
the last numbered executable 
statement in the sequence; "i" 
is any legal Fixed Point 
Variable; and ''m,,m,,m;" are 
any legal Fixed Point variables 
or constants. 


"i' is the index counter for the 
loop. 'm," is the intial value 
of the index, "'i.'' "m." is the 
terminal value of the index, "i." 
"m3"! is the increment for the 
index, "i." If m3" is not 
specified, it is understood to 

be one. 


The "range" of a DO statement 
is all the statements beginning 
with the first one following it, 
and ending with statement 
number "'n.'' The statements 
in the Range of a Do statement 
are executed in Normal Sequence 
first withi=m,. After they 
have been executed once, i is 
incremented by m;. If i does 
not exceed m,, the statements 
in the range will be executed 
again, with i incremented. 
This process is repeated until 
the incrementing of i causes it 


























to exceed m;. At this time, 
control passes to the first 
statement following the range 
of the DO statement. 


The index variable i is available 
for subscripting andfor inclusior. 
in expressions within the loop, 
but its value should never be 
changed by any statement in the 
loop. It must not, for example, 
appear as the index variable in 
an inner DO-loop or as the index 
variable in the list control of an 
input or output statement. 


Control statements are permitted 
in a DO-loop. Control may be 
transferred to a statement out- 
side the loop by an IF or a GO 
TO statement. Control may be 
transferred to a Subroutine by 
a CALL statement. Control may 
not, however, be transferred 
into a DO-loop except by the 
RETURN statement in a Sub- 
routine called in the loop. DO- 
loops within DO-loops are 
permitted, provided only that 
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Statements (cont.) 











operations specified in one 
statement are carried out, 
control automatically passes to 
the next succeeding executable 
statement. 


no statement in the range of an 
inner loop lies outside the 
range of an outer loop. 


















The first andlast statements in 
the range of a DO statement 
must be executable. The last 






































































statement in the range of a DO * 
statement must not bea transfer 
statement. 
CONCEPTS 
122 CONTINUE It is customary to mark the last Expressions An expression is any legal Fixed 94 
statement in the range of a DO- Point or Floating Point variable 
loop with a CONTINUE state- or constant; or any legal com- 
ment. The general form is: bination of them - separated 
by operation symbols. When 
n CQGNTINUE executed, an expression results 
in one numerical value. 
'n" is the statement number of 
the statement. The CONTINUE Mixed With only one exception, all the 103 
statement is executable, but Expressions variables and constants in an 
specifies no computation or expression must be of the same 
transfer of control. mode. The only exception is 
that Floating Point mode 
variables may be raised to 
Fixed Point powers. 
112 Normal Flow In the normal flow of control 
of Control of execution, after all the Operation Symbols The following symbols specify 94 
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Nncepts (cont.) 
95 Hierarchy of 
Operations 
97 Parentheses 
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the following arithmetic 
operations: 


Conversion to 
Fixed Point 


** Exponentiation 
Multiplication 
Division 
Addition 


- Subtraction 


Operations in an expression 
are performed according to the 
following preference scheme, 
and from left to right: 


Conversion to 
Floating Point 


1) Exponentiation 

2) Multiplication and 
Division 

3) Addition and Subtraction 


a 


Those parts of an expression 
that are enclosedin parentheses 
are performed before those 
parts that are not enclosed. 
Those parts enclosed in the 
innermost paired parentheses 
are performed first; the next 
innermost, next. 


Functions 








The value of a Floating Point 110 
variable may be converted to 
Fixed Point mode by setting 
the variable equal to a Fixed 
Point variable. When executed, 
the Fixed Point variable will 
be set equal to the whole part 
of the value of the Floating 
Point variable: The frac- 
tional part is truncated and 
discarded. 


Fixed Point variables may be 109 
converted to Floating Point 
mode by setting the variable 
equal to a Floating Point 
variable. When executed, the 
whole part of the value of the 
Floating Point variable will 
be set equal to the value of 
the Fixed Point variable, and 
the fractional part will be 
zero. 


A large number of standard 
functions, such as square root, 
sin, cosine, etc. , are available. 
For an explanation of their 
use, see a Fortran Reference 
Manual. 
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STATEMENTS 


PRINT 


Output 





The PRINT statement causes 
the values of a list of variables 
to be transmitted for printing 
according to the specifications 
of an output FORMAT state- 
ment. The general form of a 
PRINT statement is: 


PRINT n, V,, V2, V3, --+- 


"n'" is the statement number of 
the output FORMAT statement 
specifying the layout of the 
printed page. 





"v1,V2,V3,.. ."' are any legal 
subscripted or non-subscripted 
variables. 


The value of each variable will 
be transmitted to the standard 


Output 
FORMAT 


List Control 
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output tape in sequence. After 
the last value has been trans- 
mitted, control will pass to 
the next statement. 


The layout of one line of output 148 
may be specified in one 

FORMAT statement. The 

general form is: 


n FGRMAT (c, s,, 5), .. -) 


"n" is the statement number of 
the FORMAT statement. 


"c''is the carriage control field. 


"S1,S2,.. .' are output field 
specifications. 


CONCEPTS 


The sequence of values of the 155 
subscript of a subscripted 

variable may be specified in 

the Variable List of a PRINT 
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epte (cont.) 


statement by using List Control 
The general form is: 


(v(i), i=m,, m,, m3) 





Data Fields 


"v'" may be any legal variable. 
"i" may be any legal Fixed 
Point variable. 























Carriage 


"m ,'' may be any legal Fixed Contrsl 


Point unsigned constant or 
variable. It is the initial value 
of 'i."' It must be greater than J 
zero, but equal to or smaller 
than "m,."' 





"m,'' may be any legal Fixed 
Point unsigned constant or 
variable. It is the terminal 
value of "i." It mustbe greater 
than zero, and equal to or 
larger than ''m,." 


"m ;"" may be any legal Fixed H Fields 
Point unsigned constant or 
variable. It is the amount by 
which "i" shall be incremented. 
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It must be greater than zero. 
If "m,'' is not specified, it is 
understood to be equal to one. 


An output data field consists of 149 
one or more print positions. 

The width of an output data 

field is the number of print 
positions in it. 


The following Hollerith 152 
Carriage Control fields result 

in the following carriage control 
operations: 


1H1 Skip to beginning of new 
page 

1HO Double-space before 
printing 

1HO Single space before 
printing 

1H+ No space before printing 


(Carriage Control fields may 
vary with different computers. ) 


A Hollerith (H) field is a group 150 
of characters specified in a 

FORMAT statement, that are 

to be printed exactly as they 
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150 


Concepts (cont.) 


F Fields 


Cd | eure 





a Ee 


appear in the statement. The 


general form is: 


'n' is the total number of 
characters in the field. Ne 
through "cy, "'arethe characters. 
They may be any of the alphabetic, 
special or numeric characters 
available in Fortran. There is 
no variable on the Variable List 
corresponding to an H field. 


Floating Point values should be 
printed in F-type output fields. 
The general form is: 


I Fields 


'n'' is the number of fields 
described. If ''n" is not 
specified, it is understood 
to be one. 


; a) ee). A) ee. ee ae 
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"w't is the "width" of the field - 
the number of print positions in 
it. 


"qd" is the number of decimal 
digits to be retained in the 
fractional part of the value 

to be printed. The fractional 
part of the value will be rounded 
to "d'' digits. 


If the width "w'' is greater than 
the number of printed positions 
needed, the printed value will 
be "right-justified" within the 
field. 


Fixed Point values should be 149 
printed in I-type output fields. 


The general form is: 


so fo fe ae ae 
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Concepts (cont.) 


X Fields 


'n'' is the number of fields 
described. If ''n" is not 
specified, it is understood 
to be one. 


"TI" is the conversion symbol 
for Fixed Point values. 


"w'' is the "width" of the field - 
the number of print positions in 
it. 


If the width, ''w," is greater 
than the number of print positions 
needed, the value will be right- 
justified within the field. 


Fields of blanks for spacing, 
etc., may be specified in an 
output FORMAT statement. 
The general form is: 


"n'' is the number of blanks 
in the field. 
















































































































































































































































































































































































































































































Repeating Output 
FORMAT 
Specifications 


Coding Sheets 


"X' is the symbol for blank 
fields. 


If the Variable List contains 155 
more variables than the output 

field specifications in the 

output FORMAT statement, 

the entire FORMAT statement 
(including carriage control) 

will be repeated, and will 
automatically apply to the next 

line of output. 


CONCEPTS 


Fortran Coding Sheets are 29 
available from computer 

installations, manufacturers, 

and business forms companies. 
Source Programs should be on 

these sheets in pencil, for 

easier correction. Statements 
should be written in large, 
unambiguous characters. The 
following conventions may be 
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35 


Statements (cont.) 


Statement 
Number 


followed: Continuation 

0 - for zero 

1 - for one 

2 - for two 

@ - for the letter O 

I. - for the letter I 

Z - for the letter Z 

Comment 


Statements should start in 
column 7 and not exceed column 
72. Column 6 should be used 
only for continuation of a 
previous line, and statement 
numbers may be written any- 
where in columns 1-5. 

















Any statement may be numbered. 
Statement numbers, however, 
have no effect on the order in 
which the statements are exe- 
cuted. Numbering is for 
reference purposes only. State- 
ment numbers may be written 
anywhere in columns 1 through Data 

5. They must be unsigned, and Preparation 
should not exceed the number of 

storage cells in the computer. 

No two statements in the same 

program may have the same 

statement number. 
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One statement may be 35 
"continued" onto another tab 

card (or line onacoding sheet) 

by writing any nonblank 

character in column 6. There 

may not be more thannine 
continuation cards for one 

statement. 


A Comment may be inserted 57 
anywhere in any program. 

It is not compiled, but is 

listed in the printout of the 

Source Program. The general 

form is: 


C Any legal characters 


The character, "'C" is in 
column one. 





Keypunching of data is the 
user's responsibility. The 
layout of data is extremely 
important. It must conform to 
the expectations of the program 
using it. It must, therefore, 
be carefully edited. 
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Items in capital and lower case letters are referenced to concepts in the Reference Manual. 

ITEMS IN CAPITAL LETTERS ARE REFERENCED TO STATEMENTS IN THE REFERENCE MANUAL. 
Items in bold face are referenced to main headings in the Reference Manual. 

Items in italics are referenced to the Program directly. 


A E 
Accumulating 108 END 179 
Arithmetic Statements 106 Exit 180 

Expressions 188 
C 
CALL 179 
Carriage Control 191 F 
Coding Sheets 193 F Fields, Input 184 
Comment Cards 194 F Fields, Output 192 
COMMON 185 First Statement Executed 180 
Compilation 23 Fixed Point Constants 181 
Computations 188 Fixed Point Variables 181 
Constants 180 Floating Point Constants 180 
Constants, Storage of 185 Floating Point Variables 181 
Continuation 194 Flow Diagrams 6 
CONTINUE 188 FORMAT, Input 182 
Control 186 FORMAT, Output 190 
Conversion to Fixed Point 189 Functions 189 
Conversion to Floating Point 189 
D G 
Data Fields, Input 183 GOTO 186 
Data Preparation 194 
Defining a Variable 108 H 
DIMENSION 184 H Fields 191 
DO 186 Hierarchy of Operations 189 


195 


i i 








l 

IF 186 

I Fields, Input 184 
I Fields, Output 192 
Incrementing 107 


Input 182 
J 

Job 43 

L 


Last Statement Executed 180 
List Control, Input 183 
List Control, Output 190 


M 

Main Program 179 
Mixed Expressions 188 
Multiple Fields 80 


N 
Nonsubscripted Variables 185 
Normal Flow of Control 188 


0 

Object Programs 20 
Operation Symbols 188 
Output 190 


fm Go Go) Go GC) ) tm oe 





P 
Parentheses 189 
PRINT 190 
Program Structure 179 
Punched Cards 34 


R 

READ 182 

Repeating Input FORMAT Descriptions 184 
Repeating Output FORMAT Descriptions 193 
RETURN 180 


S 

Source Program Preparation 193 
Statement Numbers 194 

Storage Allocation 184 

Subprogram 179 

SUBROUTINE 179 

Subscripted Variables 181 
Subscripted Variables Storage 185 


V 
Variables 181 


X 
X Fields 193 


Index 


me a) fl ee oe 


auewwe eee eee eee Ue Ce 
FORTRAN cooine Form 


FOR 


¢< F 
COMMENT z FORTRAN STATEMENT 


STATEMENT 




































































re 
Z 
uJ 
= 
Lu 
- 
< 
- 
ct) 
Zz 
< 
x 
= 
x 
O 
Lo 











FORTRAN oooinc Form 





COMMENT 

















STATEMENT 
NUMBER 

















a ORTRAN cooine rorm 


FORTRAN STATEMENT 
STATEMENT 







































SEE 

















FORTRAN oopinc Form 


FORTRAN STATEMENT 




































































Sa ee eeeeaeangaeae agaaeeea & 


FORTRAN cooine rorm 


FORTRAN STATEMENT 

















FORTRAN 0oopinec Form 


FOR ° 
COMMENT 2 FORTRAN STATEMENT 
STATEMENT 3 

NUMBER 
1 5 


C< 
































hh ha ho eh a a a a a 





aeuae 


CODING FORM 


aus & 





.__ 


oe 


FORTRAN STATEMENT 














FORTRAN «oopinc Form 


FORTRAN STATEMENT 
















































































ae wWeaweee& 


FORTRAN cooine rorm 


FORTRAN STATEMENT 


















































FORTRAN ooopinc Form 


C < FOR : 
z FORTRAN STATEMENT 
: 
; NUMBER -. 















































— Seeeeaseeggge & 


ORTRAN ovine ror 























C< FOR : 
COMMENT| 2 FORTRAN STATEMENT 


STATEMENT 
NUMBER 













































































BSBeeaaus & 


FORTRAN cooine rorm 










P| tt tT | tt | ieee 


FORTRAN STATEMENT 








STATEMENT 
NUMBER 
1 5 
' 
‘ 
' 
' 































































° Fy 
FOR 

C< : 

COMMENT| 2 

= 

z 

° 


FORTRAN 0oopinec Form 

















FORTRAN STATEMENT 




















| O18TI 


